diff options
| -rw-r--r-- | sanctuary.fs | 37 |
1 files changed, 28 insertions, 9 deletions
diff --git a/sanctuary.fs b/sanctuary.fs index de37b52..8880ccb 100644 --- a/sanctuary.fs +++ b/sanctuary.fs @@ -339,22 +339,41 @@ privatise begin refill while interpret repeat 1 -to include-depth r> to source-id ; : included ( a u -- ) s>z r/o open-file 0= if - dup >r - include-file - r> - close-file + dup >r include-file + r> close-file else drop abort" file open for include failed" then ; : include ( "path" -- ) parse-name included ; \ }}} -\ \ VOCABULARY {{{ +\ DO LOOP {{{ +\ todo doc +: do postpone swap postpone >r postpone >r <mark ; immediate compile-only +\ : ?do postpone <> ?branch >mark +\ postpone swap postpone >r postpone >r <mark ; immediate compile-only +: +loop postpone r> postpone + postpone r@ + postpone over postpone >r ( n+i lim , R: lim n+i ) + postpone >= + ?branch <resolve + postpone rdrop postpone rdrop ; immediate compile-only +\ todo -loop +: loop postpone r> postpone 1+ postpone r@ + postpone over postpone >r ( n+i lim , R: lim n+i ) + postpone >= + ?branch <resolve + postpone rdrop postpone rdrop ; immediate compile-only +: i r@ ; +\ }}} + +\ VOCABULARY {{{ \ do this after user input and stuff is Working -\ 32 constant #vocs -\ variable #order -\ create context #vocs cells allot -\ \ }}} +\ words in asm that use latest directly: +\ find (header) : ; smudge immediate compile-only +32 constant #vocs \ #context better name ? +variable #order +create context #vocs cells allot +\ }}} \ PROGRAMMING TOOLS {{{ \ should write top of stack on right |