[Win32forth-cvs] win32forth-stc/src Class.f,1.10,1.11

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

Update of /cvsroot/win32forth/win32forth-stc/src
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv28784/win32forth-stc/src

Modified Files:
	Class.f 
Log Message:
gah:removed setting of xt pointer in ;object

Index: Class.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/src/Class.f,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -d -r1.10 -r1.11
*** Class.f	21 May 2007 13:51:45 -0000	1.10
--- Class.f	21 May 2007 14:16:59 -0000	1.11
***************
*** 678,684 ****
  : ;Object       ( -- )
                  Obj-CLASS 0= abort" Objects must start with :Object"
!                 ^class (;ClObj)
                  Obj-CLASS (Obj-Build)
!                 LatestXT @ swap voc>vxt !
                  Obj-LOADLINE last @ n>vfa w! ;
  
--- 678,684 ----
  : ;Object       ( -- )
                  Obj-CLASS 0= abort" Objects must start with :Object"
!                 (;ClObj)
                  Obj-CLASS (Obj-Build)
!                 0 to Obj-Class
                  Obj-LOADLINE last @ n>vfa w! ;