![[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.18, 2007/02/19 00:08:20 | version 1.19, 2007/02/23 14:50:02 |
|---|---|
| Line 155 is catch | Line 155 is catch |
| 2 (bye) | 2 (bye) |
| \ quit | \ quit |
| THEN | THEN |
| dup rp! | dup rp! ( ... ball frame ) |
| rdrop | cell+ dup @ lp! |
| r> lp! | cell+ dup @ fp! |
| r> fp! | cell+ dup @ ( ... ball addr sp ) -rot 2>r sp! drop 2r> |
| r> -rot 2>r sp! drop 2r> | cell+ @ perform |
| r@ swap rp! perform | |
| THEN ; | THEN ; |
| is throw | is throw |