From a6b65a0595d079ffbb094b8d91f486f5365ce354 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 2 Dec 2016 23:09:27 -0400
Subject: - Added Number implementation for Frac.

---
 stdlib/source/lux/data/number.lux | 13 +++++++++++++
 1 file changed, 13 insertions(+)

diff --git a/stdlib/source/lux/data/number.lux b/stdlib/source/lux/data/number.lux
index 88cdc4eaf..8c3d08dbf 100644
--- a/stdlib/source/lux/data/number.lux
+++ b/stdlib/source/lux/data/number.lux
@@ -79,6 +79,19 @@
   [Real Ord<Real> r.+ r.- r.* r./ r.% r.= r.< 0.0 1.0 -1.0]
   )
 
+(struct: #export _ (Number Frac)
+  (def: ord Ord<Frac>)
+  (def: + f.+)
+  (def: - f.-)
+  (def: * f.*)
+  (def: / f./)
+  (def: % f.%)
+  (def: (negate x) (f.- x (_lux_proc ["frac" "max-value"] [])))
+  (def: abs id)
+  (def: (signum x)
+    (_lux_proc ["frac" "max-value"] []))
+  )
+
 (do-template [<type> <ord> <succ> <pred>]
   [(struct: #export _ (Enum <type>)
      (def: ord <ord>)
-- 
cgit v1.2.3