version 1.70, 2010/05/01 20:36:59
|
version 1.71, 2010/05/01 21:29:08
|
Line 309 VARIABLE C-Pass
|
Line 309 VARIABLE C-Pass
|
endif |
endif |
over 4 cells + over = if |
over 4 cells + over = if |
over 1 cells + @ decompile-prim ['] call xt>threaded = >r |
over 1 cells + @ decompile-prim ['] call xt>threaded = >r |
over 2 cells + @ ['] !does >body = >r |
|
over 3 cells + @ decompile-prim ['] ;S xt>threaded = |
over 3 cells + @ decompile-prim ['] ;S xt>threaded = |
r> and r> and |
r> and if |
if drop c-does> 4 cells + EXIT endif |
over 2 cells + @ ['] !does >body = if drop |
|
S" DOES> " Com# .string 4 cells + EXIT endif |
|
[IFDEF] !;abi-code |
|
over 2 cells + @ ['] !;abi-code >body = if drop |
|
S" DOES> " Com# .string 4 cells + EXIT endif |
|
[THEN] |
|
endif |
endif |
endif |
\ !! test for cfa here, and print "['] ..." |
\ !! test for cfa here, and print "['] ..." |
dup abs 0 <# #S rot sign #> 0 .string bl cemit |
dup abs 0 <# #S rot sign #> 0 .string bl cemit |