diff options
Diffstat (limited to '')
| -rw-r--r-- | stdlib/source/test/lux/math.lux | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/stdlib/source/test/lux/math.lux b/stdlib/source/test/lux/math.lux index 88dc6d420..46b5171ee 100644 --- a/stdlib/source/test/lux/math.lux +++ b/stdlib/source/test/lux/math.lux @@ -7,7 +7,7 @@ [data ["." bit ("#@." equivalence)] [number - ["." frac ("#@." number)]]]] + ["." frac]]]] {1 ["." /]} ["." / #_ @@ -20,7 +20,7 @@ (def: (within? margin-of-error standard value) (-> Frac Frac Frac Bit) (f/< margin-of-error - (frac@abs (f/- standard value)))) + (frac.abs (f/- standard value)))) (def: margin Frac +0.0000001) @@ -61,7 +61,7 @@ (_.test "The round will be an integer value, and will be < or > or = the original." (let [round'd (/.round sample)] (and (|> round'd frac-to-int int-to-frac (f/= round'd)) - (f/<= +1.0 (frac@abs (f/- sample round'd)))))) + (f/<= +1.0 (frac.abs (f/- sample round'd)))))) ))) (<| (_.context "Exponentials and logarithms") (do r.monad |