[gforth] / gforth / cross.fs  

gforth: gforth/cross.fs

Diff for /gforth/cross.fs between version 1.98 and 1.99

version 1.98, Wed May 9 16:22:10 2001 UTC version 1.99, Sat Jun 16 22:53:36 2001 UTC
Line 2112 
Line 2112 
 [ELSE]  [ELSE]
 : compile:  ( ghost -- ghost xt colon-sys )  :noname ;  : compile:  ( ghost -- ghost xt colon-sys )  :noname ;
 : ;compile ( ghost xt colon-sys -- ghost )  : ;compile ( ghost xt colon-sys -- ghost )
     postpone ; drop ; immediate      postpone ; drop ['] prim-resolved over >comp ! ; immediate
 [THEN]  [THEN]
   
 : by      ( -- ghost ) \ Name  : by      ( -- ghost ) \ Name
Line 2698 
Line 2698 
 : .s            .s ;  : .s            .s ;
 : bye           bye ;  : bye           bye ;
   
   \ dummy
   
   : group  source >in ! drop ;
   
 \ turnkey direction  \ turnkey direction
 : H forth ; immediate  : H forth ; immediate
 : T minimal ; immediate  : T minimal ; immediate

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help