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 |