Diff for /gforth/wordinfo.fs between versions 1.12 and 1.13

version 1.12, 1996/08/21 14:58:45 version 1.13, 1996/08/26 10:07:22
Line 49  INCLUDE look.fs Line 49  INCLUDE look.fs
     ((name>)) >code-address douser: = ;      ((name>)) >code-address douser: = ;
   
 : does? ( nfa -- flag )  : does? ( nfa -- flag )
     \ !! does not work on all installations  
     ((name>))      ((name>))
     >code-address ['] spaces >code-address = ;      >does-code 0<> ;
   
 : defered? ( nfa -- flag )  : defered? ( nfa -- flag )
     ((name>)) >code-address dodefer: = ;      ((name>)) >code-address dodefer: = ;

Removed from v.1.12  
changed lines
  Added in v.1.13


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