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

version 1.98, 2001/05/09 16:22:10 version 1.99, 2001/06/16 22:53:36
Line 2112  T has? peephole H [IF] Line 2112  T has? peephole H [IF]
 [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  previous Line 2698  previous
 : .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

Removed from v.1.98  
changed lines
  Added in v.1.99


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>