From c64b62a0bfa6236370164d9e5fd4fd72a2402efc Mon Sep 17 00:00:00 2001 From: kitty Date: Wed, 22 Apr 2026 00:36:24 +1000 Subject: don't push 0 0 on 'previous definitions' --- sanctuary.fs | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'sanctuary.fs') diff --git a/sanctuary.fs b/sanctuary.fs index 06aa46f..bfbf108 100644 --- a/sanctuary.fs +++ b/sanctuary.fs @@ -448,7 +448,7 @@ defer default-wordlist : set-current ( wid -- ) current ! ; : discard ( x1 xn u -- ) 0 ?do drop loop ; -: definitions get-order swap set-current 1- discard ; +: definitions get-order swap set-current 1- dup 0> if discard else drop then ; : previous get-order nip 1- set-order ; : only -1 set-order ; : also get-order over swap 1+ set-order ; -- cgit v1.2.3