| >r |
>r |
| ." FETCH_DCELL(" |
." FETCH_DCELL(" |
| r@ item-name 2@ type ." , " |
r@ item-name 2@ type ." , " |
| r@ item-in-index r@ item-stack @ 2dup stack-access |
r@ item-in-index r@ item-stack @ 2dup ." (Cell)" stack-access |
| ." , " -1 under+ stack-access |
." , " -1 under+ ." (Cell)" stack-access |
| ." );" cr |
." );" cr |
| rdrop ; |
rdrop ; |
| |
|
| |
|
| : process-file ( addr u xt -- ) |
: process-file ( addr u xt -- ) |
| >r |
>r |
| 2dup filename 2! |
save-mem 2dup filename 2! |
| 0 function-number ! |
0 function-number ! |
| r/o open-file abort" cannot open file" |
r/o open-file abort" cannot open file" |
| warnings @ if |
warnings @ if |
