[gforth] / gforth / prims2x.fs  

gforth: gforth/prims2x.fs

Diff for /gforth/prims2x.fs between version 1.147 and 1.148

version 1.147, Mon Nov 3 20:13:35 2003 UTC version 1.148, Mon Jan 19 10:11:26 2004 UTC
Line 1110 
Line 1110 
 : output-alias ( -- )  : output-alias ( -- )
     ( primitive-number @ . ." alias " ) ." Primitive " prim prim-name 2@ type cr ;      ( primitive-number @ . ." alias " ) ." Primitive " prim prim-name 2@ type cr ;
   
 : output-c-prim-num ( -- )  defer output-c-prim-num ( -- )
   
   :noname ( -- )
     ." N_" prim prim-c-name 2@ type ." ," cr ;      ." N_" prim prim-c-name 2@ type ." ," cr ;
   is output-c-prim-num
   
 : output-forth ( -- )  : output-forth ( -- )
     prim prim-forth-code @ 0=      prim prim-forth-code @ 0=

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help