[gforth] / gforth / stuff.fs  

gforth: gforth/stuff.fs

Diff for /gforth/stuff.fs between version 1.22 and 1.23

version 1.22, Sat Sep 14 08:20:20 2002 UTC version 1.23, Thu Dec 26 19:16:17 2002 UTC
Line 66 
Line 66 
     \G equivalent to @code{] literal}      \G equivalent to @code{] literal}
     ] postpone literal ;      ] postpone literal ;
   
   [ifundef] in-dictionary?
 : in-dictionary? ( x -- f )  : in-dictionary? ( x -- f )
     forthstart dictionary-end within ;      forthstart dictionary-end within ;
   [endif]
   
 : in-return-stack? ( addr -- f )  : in-return-stack? ( addr -- f )
     rp0 @ swap - [ forthstart 6 cells + ]L @ u< ;      rp0 @ swap - [ forthstart 6 cells + ]L @ u< ;

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help