fed-sx-m1: Step 3b substrate fix #4 — integer literals truncate to strict int (was float; broke integer->char)

2026-06-05 07:19:56 +00:00
parent 076b8ae7f7
commit 6d7f0a3f15
4 changed files with 12 additions and 6 deletions
--- a/lib/erlang/transpile.sx
+++ b/lib/erlang/transpile.sx
@@ -107,7 +107,12 @@
    (let
      ((ty (get node :type)))
      (cond
-        (= ty "integer") (parse-number (get node :value))
+        (= ty "integer")
+          (let ((n (parse-number (get node :value))))
+            (cond
+              (= n nil) (error (str "Erlang: invalid integer literal: "
+                                     (get node :value)))
+              :else (truncate n)))
        (= ty "float") (parse-number (get node :value))
        (= ty "atom") (er-mk-atom (get node :value))
        (= ty "string") (get node :value)