[Win32forth-cvs] win32forth-stc/src primutil.f,1.33,1.34

[Jos v.d.V. <jo...@us...>]

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

Modified Files:
	primutil.f 
Log Message:
Jos: Changed ?isClass to get rid of objects like about-forth-dialog from the vocabularie list, when VOCS is used.

Index: primutil.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/src/primutil.f,v
retrieving revision 1.33
retrieving revision 1.34
diff -C2 -d -r1.33 -r1.34
*** primutil.f	13 May 2007 21:39:26 -0000	1.33
--- primutil.f	20 May 2007 11:05:27 -0000	1.34
***************
*** 155,161 ****
  in-application
  
! : ?isClass       ( cfa -- f )
                  >name n>tfa c@ dup tCla =
!                 swap t|Cl = or ;
  
  defer \n->crlf
--- 155,163 ----
  in-application
  
! : ?isClass      ( cfa -- f )
                  >name n>tfa c@ dup tCla =
!                 over t|Cl = or
!                 swap tobj = or
!  ;
  
  defer \n->crlf