![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to comp.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth / kernel|
Return to comp.fs CVS log | Up to [gforth] / gforth / kernel |
| version 1.62, 2003/11/10 15:47:40 | version 1.63, 2004/01/13 16:00:56 |
|---|---|
| Line 273 has? peephole [IF] | Line 273 has? peephole [IF] |
| cfalign here /does-handler allot does-handler! ; | cfalign here /does-handler allot does-handler! ; |
| : (compile) ( -- ) \ gforth-obsolete: dummy | : (compile) ( -- ) \ gforth-obsolete: dummy |
| ( r> dup cell+ >r @ compile, ) ; | true abort" (compile) doesn't work, use POSTPONE instead" ; |
| \ \ ticks | \ \ ticks |