Allow negative values to be specified in the loader.

2007-12-19 17:06:32 +00:00 · 2007-12-19 17:06:32 +00:00 · c609b15425
commit c609b15425
parent e61e13b2ab
1 changed files with 2 additions and 0 deletions
--- 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?