diff options
| author | Eduardo Julian | 2017-11-06 20:51:43 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2017-11-06 20:51:43 -0400 |
| commit | 69d3bdf98a5be8dd7aacc0b37bdbfcbf226faf62 (patch) | |
| tree | f4e33556adabef5906d54f142dce694a94e1ce08 /stdlib/test/test/lux.lux | |
| parent | cab9451961fa25fd6683c1c7bd836941bd84e48b (diff) | |
- Changed how Lux procedures work on the old compiler and the stdlib.
Diffstat (limited to '')
| -rw-r--r-- | stdlib/test/test/lux.lux | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/stdlib/test/test/lux.lux b/stdlib/test/test/lux.lux index 9c348720b..4c0d1513f 100644 --- a/stdlib/test/test/lux.lux +++ b/stdlib/test/test/lux.lux @@ -136,10 +136,10 @@ (|> x' (/ y) (* y) (= x')))) ))))] - ["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] - ["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] + ["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] + ["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 deg max-value") ("lux deg max-value") %f id id] ) (do-template [category rand-gen -> <- = <cap> %a %z] |