From bbf5fb06275b3eef9c9209713e1d667b41d8ec47 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Mon, 20 Aug 2018 18:53:08 -0400
Subject: Fixed syntax bug.

---
 stdlib/source/lux/compiler/default/syntax.lux | 2 +-
 stdlib/source/lux/data/number.lux             | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

(limited to 'stdlib/source')

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