[Win32forth-cvs] win32forth-stc/src Class.f, 1.9, 1.10 primutil.f, 1.34, 1.35

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

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

Modified Files:
	Class.f primutil.f 
Log Message:
gah:modified inherit to set xt pointer in wordlist structure of :object definitions to the xt of [NoNameClass], a dummy word (whose type is set to tcla) so ?isclass works correctly with the class of :objects, and reverted to old ?isclass 

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

Index: Class.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth-stc/src/Class.f,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** Class.f	21 May 2007 08:38:46 -0000	1.9
--- Class.f	21 May 2007 13:51:45 -0000	1.10
***************
*** 532,535 ****
--- 532,537 ----
  internal
  
+ : [NoNameClass] ; tcla tfa! \ Fake header for :object classes
+ 
  \ Build a class header with its superclass pointer
  : inherit       ( pfa -- )
***************
*** 544,548 ****
                  ^Class ^Self iclass !             \ store my class in SELF
                  ^Class XFA dup @ 0max swap !      \ inherit indexing
!                 LatestXT @ ^class voc>vxt !       \ Set xt
                  also ^class context ! definitions \ add to search order
                  obj-class 0= if reveal then ;
--- 546,551 ----
                  ^Class ^Self iclass !             \ store my class in SELF
                  ^Class XFA dup @ 0max swap !      \ inherit indexing
!                 obj-class if ['] [NoNameClass] else LatestXT @ then
!                 ^class voc>vxt !                  \ Set xt
                  also ^class context ! definitions \ add to search order
                  obj-class 0= if reveal then ;