From 934c9953718dea1c12d8517ee5526cdbe5035a5e Mon Sep 17 00:00:00 2001
From: azidar
Date: Mon, 17 Aug 2015 15:11:01 -0700
Subject: Removed leading zeros from UInt constants

---
 src/main/stanza/bigint.stanza | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'src')

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 $
-- 
cgit v1.2.3