From a02b7bf8ff358ccfa35b03272d28537aeac723ae Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 28 Nov 2020 19:45:56 -0400
Subject: Added "private" macro to lux/debug.

---
 stdlib/source/spec/compositor/generation/function.lux | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

(limited to 'stdlib/source/spec/compositor/generation/function.lux')

diff --git a/stdlib/source/spec/compositor/generation/function.lux b/stdlib/source/spec/compositor/generation/function.lux
index fefe039f7..21b2b4446 100644
--- a/stdlib/source/spec/compositor/generation/function.lux
+++ b/stdlib/source/spec/compositor/generation/function.lux
@@ -11,9 +11,9 @@
     [number
      ["n" nat]]
     [collection
-     ["." list ("#@." functor)]]]
+     ["." list ("#\." functor)]]]
    [math
-    ["r" random (#+ Random) ("#@." monad)]]
+    ["r" random (#+ Random) ("#\." monad)]]
    [tool
     [compiler
      [analysis (#+ Arity)]
@@ -28,11 +28,11 @@
 
 (def: arity
   (Random Arity)
-  (|> r.nat (r@map (|>> (n.% max-arity) (n.max 1)))))
+  (|> r.nat (r\map (|>> (n.% max-arity) (n.max 1)))))
 
 (def: (local arity)
   (-> Arity (Random Register))
-  (|> r.nat (r@map (|>> (n.% arity) inc))))
+  (|> r.nat (r\map (|>> (n.% arity) inc))))
 
 (def: function
   (Random [Arity Register Synthesis])
@@ -52,7 +52,7 @@
      partial-arity (|> r.nat (:: ! map (|>> (n.% arity) (n.max 1))))
      inputs (r.list arity r.safe-frac)
      #let [expectation (maybe.assume (list.nth (dec local) inputs))
-           inputsS (list@map (|>> synthesis.f64) inputs)]]
+           inputsS (list\map (|>> synthesis.f64) inputs)]]
     ($_ _.and
         (_.test "Can read arguments."
                 (|> (synthesis.function/apply {#synthesis.function functionS
@@ -73,7 +73,7 @@
                 (or (n.= 1 arity)
                     (let [environment (|> partial-arity
                                           (enum.range n.enum 1)
-                                          (list@map (|>> #reference.Local)))
+                                          (list\map (|>> #reference.Local)))
                           variableS (if (n.<= partial-arity local)
                                       (synthesis.variable/foreign (dec local))
                                       (synthesis.variable/local (|> local (n.- partial-arity))))
-- 
cgit v1.2.3