[Win32forth-cvs] win32forth/src Class.f,1.40,1.41

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

Update of /cvsroot/win32forth/win32forth/src
In directory vz-cvs-4.sog:/tmp/cvs-serv19802

Modified Files:
	Class.f 
Log Message:
Minor correction

Index: Class.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Class.f,v
retrieving revision 1.40
retrieving revision 1.41
diff -C2 -d -r1.40 -r1.41
*** Class.f	27 Nov 2011 19:20:13 -0000	1.40
--- Class.f	27 Nov 2011 19:44:09 -0000	1.41
***************
*** 880,884 ****
  : WM:           ( WM_MESSAGE -<object>- )       \  WM_CLOSE WM: Super
                  here 2 cells - @ ['] LIT <>
!                 THROW_INVALID_IVAR ?throw
                  here cell - @                   \ get the literal
                  -2 cells allot                  \ release the space
--- 880,884 ----
  : WM:           ( WM_MESSAGE -<object>- )       \  WM_CLOSE WM: Super
                  here 2 cells - @ ['] LIT <>
!                 THROW_NO_WM ?throw
                  here cell - @                   \ get the literal
                  -2 cells allot                  \ release the space