Update of /cvsroot/win32forth/win32forth/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6923/win32forth/src
Modified Files:
Class.f
Log Message:
gah: minor bug fix
Index: Class.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Class.f,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** Class.f 14 Jan 2006 13:00:10 -0000 1.11
--- Class.f 14 Jan 2006 14:03:32 -0000 1.12
***************
*** 1298,1302 ****
then to obj-save m0cfa ;
! : [GetMethod] ( compiling:- -<method: object>- -- ) ( runtime:- -- m0cfa ) / W32F Class
\ *G Compile the xt of the method as a literal into the current definition. Compile only.
state @ >r postpone [
--- 1298,1302 ----
then to obj-save m0cfa ;
! : [GetMethod] ( compiling:- -<method: object>- -- ) ( runtime:- -- m0cfa ) \ W32F Class
\ *G Compile the xt of the method as a literal into the current definition. Compile only.
state @ >r postpone [
|
