- Added Number implementation for Frac.

1 files changed, 13 insertions, 0 deletions

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>)