[gforth] / gforth / wordinfo.fs  

gforth: gforth/wordinfo.fs

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

version 1.12, Wed Aug 21 14:58:45 1996 UTC version 1.13, Mon Aug 26 10:07:22 1996 UTC
Line 49 
Line 49 
     ((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: = ;

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help