From edee84f0a7e48061ee9d37608c2fbdeb8b70fe3c Mon Sep 17 00:00:00 2001
From: ambrisko <ambrisko@FreeBSD.org>
Date: Wed, 19 Dec 2007 17:06:32 +0000
Subject: Allow negative values to be specified in the loader.

---
 sys/boot/forth/support.4th | 2 ++
 1 file changed, 2 insertions(+)

(limited to 'sys/boot')

diff --git a/sys/boot/forth/support.4th b/sys/boot/forth/support.4th
index a092bcf..cca1cc9 100644
--- a/sys/boot/forth/support.4th
+++ b/sys/boot/forth/support.4th
@@ -463,8 +463,10 @@ also parser definitions also
 
 : digit?
   line_pointer c@ >r
+  r@ [char] - =
   r@ [char] 0 >=
   r> [char] 9 <= and
+  or
 ;
 
 : quote?
-- 
cgit v1.1