implement HOLDS

diff --git a/forth/core-ext.fth b/forth/core-ext.fth
index e1f7eacf641593e8696a94c26896a62d14ee51f4..e38d9b1cf5f647218495897735ec08e357e5dc97 100644 (file)
--- 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 ;