erlang: integer literals truncate to strict int (was float; broke integer->char)

2026-06-06 08:05:57 +00:00
parent 5098a8f015
commit bcabed6bce
3 changed files with 11 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)