From 194acf022da8099126a096751294fe8e41a20343 Mon Sep 17 00:00:00 2001
From: Clyne Sullivan <clyne@bitgloo.com>
Date: Wed, 25 Oct 2023 05:40:43 -0400
Subject: [PATCH] implement HOLDS

---
 forth/core-ext.fth | 2 ++
 1 file changed, 2 insertions(+)

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 ;