[Win32forth-cvs] win32forth/src/lib MDI.F,1.8,1.9

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

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

Modified Files:
	MDI.F 
Log Message:
Minor optimisation

Index: MDI.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/lib/MDI.F,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** MDI.F	5 Jun 2006 06:40:35 -0000	1.8
--- MDI.F	9 Feb 2010 19:53:43 -0000	1.9
***************
*** 286,294 ****
          3 pick ( msg ) over obj>class MFA ((findm))
          IF
-             sp0 @ >r sp@ 4 cells+ sp0 !
              dup>r catch
              ?dup IF  r@ WndProcError  THEN
              r>drop
-             r> sp0 !
          ELSE
              drop DefMDIChildProc
--- 286,292 ----