From: Clyne Sullivan <clyne@bitgloo.com>
Date: Wed, 25 Oct 2023 09:40:43 +0000 (-0400)
Subject: implement HOLDS
X-Git-Url: https://code.bitgloo.com/?a=commitdiff_plain;h=194acf022da8099126a096751294fe8e41a20343;p=bitgloo%2Falee-forth.git

implement HOLDS
---

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 ;