diff options
| -rw-r--r-- | sanctuary.fs | 2 |
1 files changed, 1 insertions, 1 deletions
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 ; |