[gforth] / gforth / wordinfo.fs  

gforth: gforth/wordinfo.fs

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

version 1.1, Fri Feb 11 16:30:47 1994 UTC version 1.2, Wed May 18 17:30:03 1994 UTC
Line 21 
Line 21 
   
 : 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 
Line 40 
   
 : colon? ( nfa -- flag )  : colon? ( nfa -- flag )
         (name>)          (name>)
         @ ['] does? @ = ;          >code-address ['] does? >code-address = ;
   
 \ VALUE VCheck  \ VALUE VCheck
   

Generate output suitable for use with a patch program
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help