Diff for /gforth/wordinfo.fs between versions 1.1 and 1.2

version 1.1, 1994/02/11 16:30:47 version 1.2, 1994/05/18 17:30:03
Line 21  INCLUDE look.fs Line 21  INCLUDE look.fs
   
 : var?  ( nfa -- flag )  : var?  ( nfa -- flag )
         (name>)          (name>)
         @ ['] leavings @ = ;          >code-address ['] leavings >code-address = ;
   
 : con?  ( nfa -- flag )  : con?  ( nfa -- flag )
         (name>)          (name>)
         @ ['] bl @ = ;          >code-address ['] bl >code-address = ;
   
 : does? ( nfa -- flag )  : does? ( nfa -- flag )
         dup (name>)          dup (name>)
         @ ['] source @ =          >code-address ['] source >code-address =
         dup IF swap (name>) cell+ @ here ! ELSE nip THEN ;          dup IF swap (name>) cell+ @ here ! ELSE nip THEN ;
   
 : defered? ( nfa -- flag )  : defered? ( nfa -- flag )
Line 40  INCLUDE look.fs Line 40  INCLUDE look.fs
   
 : colon? ( nfa -- flag )  : colon? ( nfa -- flag )
         (name>)          (name>)
         @ ['] does? @ = ;          >code-address ['] does? >code-address = ;
   
 \ VALUE VCheck  \ VALUE VCheck
   

Removed from v.1.1  
changed lines
  Added in v.1.2


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