From b1760e341e27fff9df97e2ce82336f284577144a Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 18 Dec 2016 10:55:23 -0400
Subject: - Fixed a bug in a test that was (sometimes) causing
 division-by-zero.

---
 stdlib/test/test/lux/math.lux | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'stdlib')

diff --git a/stdlib/test/test/lux/math.lux b/stdlib/test/test/lux/math.lux
index ccf9274a2..c499118b7 100644
--- a/stdlib/test/test/lux/math.lux
+++ b/stdlib/test/test/lux/math.lux
@@ -83,7 +83,7 @@
           (|> sample &;exp &;log (r.= sample))))
 
 (test: "Greatest-Common-Divisor and Least-Common-Multiple"
-  [#let [gen-nat (|> R;nat (:: @ map (|>. (n.max +1) (n.% +1000))))]
+  [#let [gen-nat (|> R;nat (:: @ map (|>. (n.% +1000) (n.max +1))))]
    x gen-nat
    y gen-nat]
   ($_ (assert "GCD"
-- 
cgit v1.2.3