diff options
| -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 ; |