[gforth] / gforth / prims2x.fs  

gforth: gforth/prims2x.fs

Diff for /gforth/prims2x.fs between version 1.37 and 1.38

version 1.37, Wed Dec 23 21:41:57 1998 UTC version 1.38, Fri Dec 25 22:50:49 1998 UTC
Line 666 
Line 666 
   
 : output-alias ( -- )  flush-comment on  : output-alias ( -- )  flush-comment on
     ?flush-comment      ?flush-comment
     primitive-number @ . ." alias " forth-name 2@ type cr      ( primitive-number @ . ." alias " ) ." Primitive " forth-name 2@ type cr
     -1 primitive-number +! ;      -1 primitive-number +! ;
   
 : output-forth ( -- )  flush-comment on  : output-forth ( -- )  flush-comment on

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help