Return to cross.fs CVS log | Up to [gforth] / gforth |
version 1.40, 1996/09/24 19:15:02 | version 1.41, 1996/10/20 20:35:24 |
---|---|
Line 499 ghost unloop ghost ;S | Line 499 ghost unloop ghost ;S |
ghost lit ghost (compile) ghost ! 2drop drop | ghost lit ghost (compile) ghost ! 2drop drop |
ghost (does>) ghost noop 2drop | ghost (does>) ghost noop 2drop |
ghost (.") ghost (S") ghost (ABORT") 2drop drop | ghost (.") ghost (S") ghost (ABORT") 2drop drop |
ghost ' | ghost ' drop |
\ compile 10may93jaw | \ compile 10may93jaw |