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! ;
|
