implement HOLDS

11 months ago · 194acf022d
parent 6bd7c01389
commit 194acf022d
1 changed files with 2 additions and 0 deletions
--- 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 ;