forth: BASE/DECIMAL/HEX/BIN/OCTAL (+9; Hayes 174/590)

2026-04-24 20:40:11 +00:00
parent 35ce18eb97
commit acf9c273a2
8 changed files with 76 additions and 9 deletions
--- a/lib/forth/interpreter.sx
+++ b/lib/forth/interpreter.sx
@@ -17,7 +17,7 @@
        (not (nil? w))
        (forth-execute-word state w)
        (let
-          ((n (forth-parse-number tok (get state "base"))))
+          ((n (forth-parse-number tok (get (get state "vars") "base"))))
          (if
            (not (nil? n))
            (forth-push state n)