version 1.5, 1994/05/07 14:55:58
|
version 1.6, 1994/05/18 17:29:55
|
Line 254 hex
|
Line 254 hex
|
handler @ >r |
handler @ >r |
rp@ handler ! |
rp@ handler ! |
execute |
execute |
r> handler ! rdrop rdrop 0 ; |
r> handler ! rdrop rdrop rdrop 0 ; |
|
|
: throw ( y1 .. ym error/0 -- y1 .. ym / z1 .. zn error ) |
: throw ( y1 .. ym error/0 -- y1 .. ym / z1 .. zn error ) |
?DUP IF |
?DUP IF |
handler @ rp! |
handler @ rp! |
Line 263 hex
|
Line 264 hex
|
r> fp! |
r> fp! |
r> swap >r sp! r> |
r> swap >r sp! r> |
THEN ; |
THEN ; |
|
|
\ Bouncing is very fine, |
\ Bouncing is very fine, |
\ programming without wasting time... jaw |
\ programming without wasting time... jaw |
: bounce ( y1 .. ym error/0 -- y1 .. ym error / y1 .. ym ) |
: bounce ( y1 .. ym error/0 -- y1 .. ym error / y1 .. ym ) |
Line 779 create nl$ 1 c, A c, 0 c, \ gnu includes
|
Line 781 create nl$ 1 c, A c, 0 c, \ gnu includes
|
|
|
\ INCLUDE 9may93jaw |
\ INCLUDE 9may93jaw |
|
|
: include |
: include ( "file" -- ) |
bl word count included ; |
bl word count included ; |
|
|
\ RECURSE 17may93jaw |
\ RECURSE 17may93jaw |
|
|