Removed leading zeros from UInt constants

1 files changed, 2 insertions, 1 deletions

diff --git a/src/main/stanza/bigint.stanza b/src/main/stanza/bigint.stanza
index ad4a5bde..bc13bdbf 100644
--- a/src/main/stanza/bigint.stanza
+++ b/src/main/stanza/bigint.stanza
@@ -39,7 +39,8 @@ public defn BigInt (len: Int) :
          ;println(digit)
          val hex = as-hex(digit)
          ;println(hex)
-         str = string-join([str hex])
+         if str == "h" and hex == "0" and (i + 4 < len) : false
+         else : str = string-join([str hex])
        string-join([ "\"" str "\""])
      defmethod to-bin (this) -> String :
        string-join $