diff options
| -rw-r--r-- | sys/boot/forth/beastie.4th | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/sys/boot/forth/beastie.4th b/sys/boot/forth/beastie.4th index c726875..d96f579 100644 --- a/sys/boot/forth/beastie.4th +++ b/sys/boot/forth/beastie.4th @@ -240,7 +240,10 @@ set-current drop 10 else - 0 0 2swap >number drop drop drop + 2dup s" -1" compare 0= if + 0 boot + then + 0 s>d 2swap >number 2drop drop then begin dup tkey |
