don't push 0 0 on 'previous definitions'

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 ;