ref: 33191432d1d295d78a1c5638de7a9d9fc0ea97e4
parent: a6fb177862fffdb3aeff2c862d7beffbfbf71121
author: Ori Bernstein <[email protected]>
date: Wed Jan 22 21:25:40 EST 2014
Maintain sign correctly when parsing values.
--- a/libstd/bigint.myr
+++ b/libstd/bigint.myr
@@ -147,8 +147,14 @@
-> `None
;;
v.dig[0] = val
+ if val == 0
+ v.sign = 0
+ else
+ v.sign = 1
+ ;;
bigmul(a, b)
bigadd(a, v)
+
;;
-> `Some a
}