[Win32forth-cvs] win32forth-stc/src primutil.f,1.25,1.26

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

Update of /cvsroot/win32forth/win32forth-stc/src
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv22441/win32forth-stc/src

Modified Files:
	primutil.f 
Log Message:
gah: Modified to support class.f

Index: primutil.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/src/primutil.f,v
retrieving revision 1.25
retrieving revision 1.26
diff -C2 -d -r1.25 -r1.26
*** primutil.f	11 Apr 2007 20:21:53 -0000	1.25
--- primutil.f	24 Apr 2007 09:13:14 -0000	1.26
***************
*** 134,137 ****
--- 134,141 ----
  in-application
  
+ : ?isClass       ( cfa -- f )
+                 >name n>tfa c@ dup tCla =
+                 swap t|Cl = or ;
+ 
  \ Moved to user area to make asciiz thread safe gah 28jun04
  MAXSTRING newuser z-buf