From ee73994bf7733971561e32a28ac06141dbe0134b Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 28 Aug 2018 22:04:12 -0400
Subject: Small additions to stdlib.

---
 stdlib/source/lux.lux | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

(limited to 'stdlib/source/lux.lux')

diff --git a/stdlib/source/lux.lux b/stdlib/source/lux.lux
index 916b77797..1fb0afe19 100644
--- a/stdlib/source/lux.lux
+++ b/stdlib/source/lux.lux
@@ -2228,7 +2228,7 @@
                 subjectH (high-bits subject)]
                (if ("lux int <" subjectH testH)
                  #1
-                 (if ("lux i64 =" testH subjectH)
+                 (if ("lux i64 =" subjectH testH)
                    ("lux int <"
                     (low-bits subject)
                     (low-bits test))
@@ -6206,3 +6206,11 @@
   [no    yes]
   [off   on]
   )
+
+(def: #export nat-to-frac
+  (-> Nat Frac)
+  (|>> ..int ..int-to-frac))
+
+(def: #export frac-to-nat
+  (-> Frac Nat)
+  (|>> ..frac-to-int ..nat))
-- 
cgit v1.2.3