- Re-named "real" numbers to "frac"(tions).

1 files changed, 5 insertions, 5 deletions

diff --git a/stdlib/test/test/lux.lux b/stdlib/test/test/lux.lux
index dcf1997f0..41b3bc555 100644
--- a/stdlib/test/test/lux.lux
+++ b/stdlib/test/test/lux.lux
@@ -69,7 +69,7 @@
 
   ["Int"  R;int  i.= i.< i.> i.<= i.>= i.min i.max]
   ["Nat"  R;nat  n.= n.< n.> n.<= n.>= n.min n.max]
-  ["Real" R;real r.= r.< r.> r.<= r.>= r.min r.max]
+  ["Frac" R;frac f.= f.< f.> f.<= f.>= f.min f.max]
   ["Deg" R;deg d.= d.< d.> d.<= d.>= d.min d.max]
   )
 
@@ -117,7 +117,7 @@
 
   ["Nat"  R;nat  n.= n.+ n.- n.* n./ n.% n.> +0  +1                                  +1000000                           %n (n.% +1000) id]
   ["Int"  R;int  i.= i.+ i.- i.* i./ i.% i.>  0   1                                   1000000                           %i (i.%  1000) id]
-  ["Real" R;real r.= r.+ r.- r.* r./ r.% r.>  0.0 1.0                                 1000000.0                         %r id          math;floor]
+  ["Frac" R;frac f.= f.+ f.- f.* f./ f.% f.>  0.0 1.0                                 1000000.0                         %r id          math;floor]
   ["Deg"  R;deg  d.= d.+ d.- d.* d./ d.% d.>   .0 (_lux_proc ["deg" "max-value"] []) (_lux_proc ["deg" "max-value"] []) %f id          id]
   )
 
@@ -130,9 +130,9 @@
 
   ["Int->Nat"  R;int  int-to-nat  nat-to-int  i.= (i.%  1000000) %i %n]
   ["Nat->Int"  R;nat  nat-to-int  int-to-nat  n.= (n.% +1000000) %n %i]
-  ["Int->Real" R;int  int-to-real real-to-int i.= (i.%  1000000) %i %r]
-  ["Real->Int" R;real real-to-int int-to-real r.= math;floor     %r %i]
-  ## [R;real real-to-deg deg-to-real r.= (r.% 1.0) %r %f]
+  ["Int->Frac" R;int  int-to-frac frac-to-int i.= (i.%  1000000) %i %r]
+  ["Frac->Int" R;frac frac-to-int int-to-frac f.= math;floor     %r %i]
+  ## [R;frac frac-to-deg deg-to-frac f.= (f.% 1.0) %r %f]
   )
 
 (context: "Simple macros and constructs"