diff options
| author | Clyne Sullivan <clyne@bitgloo.com> | 2023-11-09 14:48:49 -0500 |
|---|---|---|
| committer | Clyne Sullivan <clyne@bitgloo.com> | 2023-11-09 14:48:49 -0500 |
| commit | 4b50a9fafe793abf3c2c16e203072a98a0702814 (patch) | |
| tree | 52283545e15153a2adeba8145d8e018f97699cfe /forth | |
| parent | 3dc947a7575bd23703644996d8e853e5e618b2e3 (diff) | |
move main execution to State; bring back verify()optimize
Diffstat (limited to 'forth')
| -rw-r--r-- | forth/core.fth | 4 | ||||
| -rw-r--r-- | forth/fib.fth | 4 |
2 files changed, 4 insertions, 4 deletions
diff --git a/forth/core.fth b/forth/core.fth index 8ec5b71..e9fc133 100644 --- a/forth/core.fth +++ b/forth/core.fth @@ -51,8 +51,8 @@ : else ['] _jmp , here 0 , swap here swap ! ; imm : postpone _' dup 0 = if exit then - 1 = swap ['] _lit , , if ['] execute , - else ['] , , then ; imm + 1 = swap ['] _lit , , if ['] execute + else ['] , then , ; imm : over 1 pick ; : rot >r swap r> swap ; diff --git a/forth/fib.fth b/forth/fib.fth index 671528a..3efdd2c 100644 --- a/forth/fib.fth +++ b/forth/fib.fth @@ -9,10 +9,10 @@ 5 sys fib 5 sys >r 2drop r> ; variable avg 0 avg ! -2000 constant iters +1000 constant iters : bench ( -- ) - iters 0 do 100 fibbench avg +! loop + iters 0 do 1000 fibbench avg +! loop avg @ iters / avg ! ; bench ." avg time: " avg @ . ." us" cr |