diff options
| author | kitty <nepeta@canaglie.net> | 2026-04-12 22:54:35 +1000 |
|---|---|---|
| committer | kitty <nepeta@canaglie.net> | 2026-04-12 22:54:35 +1000 |
| commit | 4a865170411e49924c6bc95fe871d32d4a40ddbb (patch) | |
| tree | 7e1d85e04b90d9cc824e4ee9576b9b844a615829 /sanctuary.fs | |
| parent | 8a0a5595ab3e8ab8cdcd36c24c6d22f85cdee00e (diff) | |
evaluate, welcome
no docs yet still
Diffstat (limited to 'sanctuary.fs')
| -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 |