aboutsummaryrefslogtreecommitdiff
path: root/src/main/stanza/bigint2.stanza
diff options
context:
space:
mode:
Diffstat (limited to 'src/main/stanza/bigint2.stanza')
-rw-r--r--src/main/stanza/bigint2.stanza3
1 files changed, 2 insertions, 1 deletions
diff --git a/src/main/stanza/bigint2.stanza b/src/main/stanza/bigint2.stanza
index ebd01652..64c587ee 100644
--- a/src/main/stanza/bigint2.stanza
+++ b/src/main/stanza/bigint2.stanza
@@ -88,9 +88,10 @@ defmethod set (b:BigInt, index:Int, bit:Int) -> False :
d(b)[word-index] = ((bit & 1) << bit-index) | d(b)[word-index]
public defmethod to-string (b:BigInt) : to-hex(b)
+ ;string-join([to-hex(b) "'" num-bits(b)])
public defmethod print (o:OutputStream, b:BigInt) :
- print(o, to-string(b))
+ print(o, to-string(b))
public defn BigIntZero (num-bits:Int) -> BigInt :
val num-words = (num-bits + word-size - 1) / word-size