--- gforth/cross.fs 2001/05/09 16:22:10 1.98 +++ gforth/cross.fs 2001/06/16 22:53:36 1.99 @@ -2112,7 +2112,7 @@ T has? peephole H [IF] [ELSE] : compile: ( ghost -- ghost xt colon-sys ) :noname ; : ;compile ( ghost xt colon-sys -- ghost ) - postpone ; drop ; immediate + postpone ; drop ['] prim-resolved over >comp ! ; immediate [THEN] : by ( -- ghost ) \ Name @@ -2698,6 +2698,10 @@ previous : .s .s ; : bye bye ; +\ dummy + +: group source >in ! drop ; + \ turnkey direction : H forth ; immediate : T minimal ; immediate