version 1.4, 1997/07/31 16:17:28
|
version 1.5, 1997/10/24 17:13:31
|
Line 52 foo1
|
Line 52 foo1
|
|
|
5 fac 120 <> throw |
5 fac 120 <> throw |
|
|
|
\ TO and locals |
|
|
|
: locals-test2 ( -- ) |
|
true dup dup dup { addr1 u1 addr2 u2 -- n } |
|
false TO addr1 |
|
addr1 false <> abort" TO does not work on locals" ; |
|
locals-test2 |
|
|
|
\ multiple reveals (recursive) |
|
|
|
0 |
|
: xxx recursive ; |
|
throw \ if the TOS is not 0, throw an error |
|
|
\ look for primitives |
\ look for primitives |
|
|
' + look 0= throw ( nt ) |
' + look 0= throw ( nt ) |
Line 74 s" a " 2 /string -trailing throw dro
|
Line 88 s" a " 2 /string -trailing throw dro
|
name abc 2dup name xyza search throw d<> throw |
name abc 2dup name xyza search throw d<> throw |
name b 2dup name abc search throw d<> throw |
name b 2dup name abc search throw d<> throw |
|
|
|
\ only |
|
|
|
: test-only ( -- ) |
|
get-order get-current |
|
0 set-current |
|
only |
|
get-current >r |
|
set-current set-order |
|
r> abort" ONLY sets current" ; |
|
test-only |
|
|
\ comments across several lines |
\ comments across several lines |
|
|
( fjklfjlas;d |
( fjklfjlas;d |