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

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

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 [