diff options
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/lux/compiler/default/syntax.lux | 2 | ||||
| -rw-r--r-- | stdlib/source/lux/data/number.lux | 4 |
2 files changed, 3 insertions, 3 deletions
diff --git a/stdlib/source/lux/compiler/default/syntax.lux b/stdlib/source/lux/compiler/default/syntax.lux index 7556e7e46..5f2d6d93b 100644 --- a/stdlib/source/lux/compiler/default/syntax.lux +++ b/stdlib/source/lux/compiler/default/syntax.lux @@ -614,8 +614,8 @@ (..record where ast') (..text where) (..nat where) - (..int where) (..frac where) + (..int where) (..rev where) (..bit where) (..identifier current-module aliases where) diff --git a/stdlib/source/lux/data/number.lux b/stdlib/source/lux/data/number.lux index a1303f848..4b3b786b4 100644 --- a/stdlib/source/lux/data/number.lux +++ b/stdlib/source/lux/data/number.lux @@ -646,12 +646,12 @@ +1.0)] (case ("lux text index" repr "." 0) (#.Some split-index) - (let [whole-part (maybe.assume ("lux text clip" repr (if (f/= -1.0 sign) 1 0) split-index)) + (let [whole-part (maybe.assume ("lux text clip" repr 1 split-index)) decimal-part (maybe.assume ("lux text clip" repr (inc split-index) ("lux text size" repr))) as-binary (|> (<to> decimal-part) ("lux text concat" ".") ("lux text concat" (<to> whole-part)) - ("lux text concat" (if (f/= -1.0 sign) "-" "")))] + ("lux text concat" (if (f/= -1.0 sign) "-" "+")))] (case (:: Binary@Codec<Text,Frac> decode as-binary) (#error.Error _) (#error.Error ("lux text concat" <error> repr)) |