![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to except.fs CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [gforth] / gforth|
Return to except.fs CVS log | Up to [gforth] / gforth |
| version 1.23, 2010/09/01 16:52:12 | version 1.24, 2010/09/05 17:58:41 |
|---|---|
| Line 168 Variable first-throw | Line 168 Variable first-throw |
| then endtry ; | then endtry ; |
| is catch | is catch |
| [undefined] (throw1) | [undefined] (throw1) [if] |
| : (throw1) ( ... ball frame -- ... ball ) | : (throw1) ( ... ball frame -- ... ball ) |
| dup rp! ( ... ball frame ) | dup rp! ( ... ball frame ) |
| cell+ dup @ lp! | cell+ dup @ lp! |