Diff for /gforth/wordinfo.fs between versions 1.9 and 1.11

version 1.9, 1996/01/07 17:22:17 version 1.11, 1996/05/13 16:37:03
Line 32  INCLUDE look.fs Line 32  INCLUDE look.fs
 \ it in many respects - anton  \ it in many respects - anton
 : alias? ( nfa1 -- nfa2|0 )  : alias? ( nfa1 -- nfa2|0 )
     \ if nfa1 is an alias, nfa2 is the name of the original word      \ if nfa1 is an alias, nfa2 is the name of the original word
     cell+ dup c@ $80 and 0=      cell+ dup c@ alias-mask and 0=
     IF      IF
         (name>) @ >name ( use look instead? )          (name>) @ >name ( use look instead? )
     ELSE      ELSE
Line 51  INCLUDE look.fs Line 51  INCLUDE look.fs
 : does? ( nfa -- flag )  : does? ( nfa -- flag )
     \ !! does not work on all installations      \ !! does not work on all installations
     cell+ (name>)      cell+ (name>)
     >code-address ['] bits >code-address = ;      >code-address ['] spaces >code-address = ;
   
 : defered? ( nfa -- flag )  : defered? ( nfa -- flag )
     cell+ (name>) >code-address dodefer: = ;      cell+ (name>) >code-address dodefer: = ;

Removed from v.1.9  
changed lines
  Added in v.1.11


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>