Reset BASE if error occurs during special base prefix input

rrthomas · Apr 22, 2018 · d55fcfc · d55fcfc
1 parent 7e80a61
commit d55fcfc
Show file tree

Hide file tree

Showing 3 changed files with 2 additions and 2 deletions.
diff --git a/src/beetle/pforth-base.img b/src/beetle/pforth-base.img
diff --git a/src/highlevel.fs.in b/src/highlevel.fs.in
@@ -504,8 +504,8 @@ VARIABLE HELD
       >NUMBER                        \ convert up to non-digit
       ?DUP WHILE                     \ if the string's not finished,
       OVER C@ 4 / 11 <> IF           \ is the non-digit punctuation?
-         R> DROP                     \ FIXME: Tighten up parsing
-         2R> 2DROP  R> UNDEFINED     \ if not, then not a number
+         2R> 2DROP                   \ FIXME: Tighten up parsing
+         R> BASE !  R> UNDEFINED     \ if not, then not a number
       THEN
       R> DROP  TRUE >R               \ if so, set double no. flag
       SKIP-CHAR                      \ and skip the punctuation

diff --git a/src/riscos/pforth-base.img b/src/riscos/pforth-base.img