![[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.68, 2004/11/28 20:35:06 | version 1.69, 2004/12/08 11:26:59 |
|---|---|
| Line 487 DOES> | Line 487 DOES> |
| \ IS Defer What's Defers TO 24feb93py | \ IS Defer What's Defers TO 24feb93py |
| defer defer-default ( -- ) | defer defer-default ( -- ) |
| ' noop is defer-default | ' abort is defer-default |
| \ default action for deferred words, might THROW in the future | \ default action for deferred words (overridden by a warning later) |
| doer? :dodefer [IF] | doer? :dodefer [IF] |