From f9d4d316ef9666f6b122b0eec8180351216e95f8 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 15 Mar 2019 00:23:49 -0400
Subject: Changed the convention for the structure opening separator from "/"
 to ";", to avoid confusion since "/" is used for relative module paths.

---
 stdlib/source/test/lux.lux | 14 +++++++-------
 1 file changed, 7 insertions(+), 7 deletions(-)

(limited to 'stdlib/source/test/lux.lux')

diff --git a/stdlib/source/test/lux.lux b/stdlib/source/test/lux.lux
index 85ed47228..d6d667d72 100644
--- a/stdlib/source/test/lux.lux
+++ b/stdlib/source/test/lux.lux
@@ -20,7 +20,7 @@
        ["." i64]]]
      ["." function]
      ["." math
-      ["r" random (#+ Random) ("#/." functor)]]
+      ["r" random (#+ Random) ("#;." functor)]]
      ["_" test (#+ Test)]
      ## These modules do not need to be tested.
      [type
@@ -295,8 +295,8 @@
   Test
   ($_ _.and
       (do r.monad
-        [factor (r/map (|>> (n/% 10) (n/max 1)) r.nat)
-         iterations (r/map (n/% 100) r.nat)
+        [factor (r;map (|>> (n/% 10) (n/max 1)) r.nat)
+         iterations (r;map (n/% 100) r.nat)
          #let [expected (n/* factor iterations)]]
         (_.test "Can write loops."
                 (n/= expected
@@ -396,13 +396,13 @@
                              (..conversion <gen> <forward> <backward> <=>))]
 
                         ["Int -> Nat"
-                         i/= .nat        .int        (r/map (i/%  +1,000,000) r.int)]
+                         i/= .nat        .int        (r;map (i/%  +1,000,000) r.int)]
                         ["Nat -> Int"
-                         n/= .int        .nat        (r/map (n/% 1,000,000) r.nat)]
+                         n/= .int        .nat        (r;map (n/% 1,000,000) r.nat)]
                         ["Int -> Frac"
-                         i/= int-to-frac frac-to-int (r/map (i/%  +1,000,000) r.int)]
+                         i/= int-to-frac frac-to-int (r;map (i/%  +1,000,000) r.int)]
                         ["Frac -> Int"
-                         f/= frac-to-int int-to-frac (r/map math.floor r.frac)]
+                         f/= frac-to-int int-to-frac (r;map math.floor r.frac)]
                         ["Rev -> Frac"
                          r/= rev-to-frac frac-to-rev frac-rev]
                         )))))
-- 
cgit v1.2.3