coop/rose-ash
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

forth: BASE/DECIMAL/HEX/BIN/OCTAL (+9; Hayes 174/590)
Some checks failed
Test, Build, and Deploy / test-build-deploy (push) Has been cancelled
Details

Browse Source
This commit is contained in:
giles
2026-04-24 20:40:11 +00:00
parent 35ce18eb97
commit acf9c273a2
8 changed files with 76 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lib/forth/compiler.sx
View File

@@ -24,7 +24,7 @@
(forth-execute-word state w)
(forth-compile-call state tok))
(let
((n (forth-parse-number tok (get state "base"))))
((n (forth-parse-number tok (get (get state "vars") "base"))))
(if
(not (nil? n))
(forth-compile-lit state n)
@@ -219,7 +219,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)