Update of /cvsroot/win32forth/win32forth/src
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv25363/win32forth/src
Modified Files:
SEE.F
Log Message:
gah: Modified .OBJECT to correctly handle objects defined with :OBJECT
Index: SEE.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/SEE.F,v
retrieving revision 1.8
retrieving revision 1.9
diff -C2 -d -r1.8 -r1.9
*** SEE.F 11 Aug 2006 10:09:45 -0000 1.8
--- SEE.F 20 Feb 2008 19:31:15 -0000 1.9
***************
*** 272,276 ****
: .OBJECT ( cfa -- )
! dup >body @ body> .name .name ;
0 value a_value
--- 272,279 ----
: .OBJECT ( cfa -- )
! dup >body @ body> \ .name
! >name dup name> ['] [unknown] =
! if drop ." :OBJECT " else id. then
! .name ;
0 value a_value
|
