diff options
| author | Clyne Sullivan <clyne@bitgloo.com> | 2023-10-25 05:40:43 -0400 |
|---|---|---|
| committer | Clyne Sullivan <clyne@bitgloo.com> | 2023-10-25 05:40:43 -0400 |
| commit | 194acf022da8099126a096751294fe8e41a20343 (patch) | |
| tree | dbc2d09aa2fe1584ddbc1443bb466f767dce9351 | |
| parent | 6bd7c01389441b1e7f87f370beeb8212dae1656b (diff) | |
implement HOLDS
| -rw-r--r-- | forth/core-ext.fth | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/forth/core-ext.fth b/forth/core-ext.fth index e1f7eac..e38d9b1 100644 --- a/forth/core-ext.fth +++ b/forth/core-ext.fth @@ -47,3 +47,5 @@ : endof ['] _jmp , here >r 0 , postpone then swap 1+ swap r> tuck ! ; imm : endcase swap 0 do dup @ swap here swap ! loop drop ['] drop , ; imm + +: holds begin dup while 1- 2dup + c@ hold repeat 2drop ; |