From 1fb74875f73fdf2fcf12a4a9d927a9a06a7889e5 Mon Sep 17 00:00:00 2001 From: Eduardo Julian Date: Mon, 26 Dec 2016 22:56:45 -0400 Subject: - Finished compiler's support for Frac numbers. --- stdlib/test/test/lux/data/number.lux | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'stdlib') diff --git a/stdlib/test/test/lux/data/number.lux b/stdlib/test/test/lux/data/number.lux index d5d60a9ce..832c8fbdd 100644 --- a/stdlib/test/test/lux/data/number.lux +++ b/stdlib/test/test/lux/data/number.lux @@ -104,10 +104,10 @@ ["Real/Mul" R;real Number Mul@Monoid (r.% 1000.0) (r.> 0.0)] ["Real/Min" R;real Number Min@Monoid (r.% 1000.0) (r.> 0.0)] ["Real/Max" R;real Number Max@Monoid (r.% 1000.0) (r.> 0.0)] - ## ["Frac/Add" R;frac Number Add@Monoid (f.% .125)] - ## ["Frac/Mul" R;frac Number Mul@Monoid (f.% .125)] - ## ["Frac/Min" R;frac Number Min@Monoid (f.% .125)] - ## ["Frac/Max" R;frac Number Max@Monoid (f.% .125)] + ["Frac/Add" R;frac Number Add@Monoid (f.% .125) (lambda [_] true)] + ## ["Frac/Mul" R;frac Number Mul@Monoid (f.% .125) (lambda [_] true)] + ["Frac/Min" R;frac Number Min@Monoid (f.% .125) (lambda [_] true)] + ["Frac/Max" R;frac Number Max@Monoid (f.% .125) (lambda [_] true)] ) (do-template [ ] -- cgit v1.2.3