diff options
| -rw-r--r-- | sanctuary.fs | 16 |
1 files changed, 15 insertions, 1 deletions
diff --git a/sanctuary.fs b/sanctuary.fs index 6342227..0922cbc 100644 --- a/sanctuary.fs +++ b/sanctuary.fs @@ -313,8 +313,17 @@ privatise dup #tib ! 0<> if true else false then ; +\ todo reset RSP : quit 0 to source-id postpone [ begin refill while interpret ." ok" cr repeat ; + +: (evaluate) ( a u -- ) 0 >in ! ( u ) #tib ! ( a ) tib ! + source-id >r string-source to source-id + interpret + r> to source-id ; +: evaluate ( a u -- ) tib @ >r #tib @ >r >in @ >r + (evaluate) + r> >in ! r> #tib ! r> tib ! ; \ }}} \ \ VOCABULARY {{{ @@ -330,4 +339,9 @@ privatise \ gonna need to be rewritten when/if i add vocabulary/wordlist support \ : words ; \ }}} -quit bye + +\ todo doc +0 constant version +: welcome ." sanctuary: a 64 bit forth for linux, version " version u. cr ; + +welcome quit bye |