diff options
| author | Eduardo Julian | 2018-08-20 18:53:08 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2018-08-20 18:53:08 -0400 |
| commit | bbf5fb06275b3eef9c9209713e1d667b41d8ec47 (patch) | |
| tree | 8b27f028dd5b6f5a7cec4f9cc90aa3f5e9b7cbc1 /stdlib/source/lux/data/number.lux | |
| parent | cdc41f99c2c5ca860f13ead6b13fb2ad57b0673b (diff) | |
Fixed syntax bug.
Diffstat (limited to 'stdlib/source/lux/data/number.lux')
| -rw-r--r-- | stdlib/source/lux/data/number.lux | 4 |
1 files changed, 2 insertions, 2 deletions
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)) |