[Win32forth-cvs] win32forth/src Window.f,1.23,1.23.2.1

[George H. <geo...@us...>]

Update of /cvsroot/win32forth/win32forth/src
In directory sfp-cvsdas-1.v30.ch3.sourceforge.com:/tmp/cvs-serv13780

Modified Files:
      Tag: V614XX
	Window.f 
Log Message:
Minor optimisation

Index: Window.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Window.f,v
retrieving revision 1.23
retrieving revision 1.23.2.1
diff -C2 -d -r1.23 -r1.23.2.1
*** Window.f	1 Feb 2010 01:29:41 -0000	1.23
--- Window.f	9 Feb 2010 19:52:13 -0000	1.23.2.1
***************
*** 243,252 ****
  
          3 pick ( msg ) over obj>class MFA ((findm))
!         if      sp0 @ >r sp@ 6 cells+ sp0 !
                  dup>r catch
                  ?dup
                  if      r@ WndProcError
                  then    rdrop
-                 r> sp0 !
          else    \ -- a1                                 \ the object address
                  DefWindowProc: [ ( a1 -- ) ]            \ gets used here
--- 243,251 ----
  
          3 pick ( msg ) over obj>class MFA ((findm))
!         if
                  dup>r catch
                  ?dup
                  if      r@ WndProcError
                  then    rdrop
          else    \ -- a1                                 \ the object address
                  DefWindowProc: [ ( a1 -- ) ]            \ gets used here