[Win32forth-cvs] win32forth/src SEE.F,1.8,1.9

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

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