From 5d4583aebd00adced10275b32ff1a93ab418be50 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 28 Jul 2021 04:48:42 -0400
Subject: Re-named List's tags: Nil => End && Cons => Item

---
 stdlib/source/specification/compositor/generation/reference.lux | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

(limited to 'stdlib/source/specification/compositor/generation/reference.lux')

diff --git a/stdlib/source/specification/compositor/generation/reference.lux b/stdlib/source/specification/compositor/generation/reference.lux
index 665175ab4..d5c3cfd34 100644
--- a/stdlib/source/specification/compositor/generation/reference.lux
+++ b/stdlib/source/specification/compositor/generation/reference.lux
@@ -21,14 +21,14 @@
 
 (def: name
   (Random Name)
-  (let [name-part (r.ascii/upper-alpha 5)]
-    [(r.and name-part name-part)]))
+  (let [name_part (r.ascii/upper_alpha 5)]
+    [(r.and name_part name_part)]))
 
 (def: (definition define)
   (-> Definer Test)
   (do r.monad
     [name ..name
-     expected r.safe-frac]
+     expected r.safe_frac]
     (_.test "Definitions."
             (|> (define name (synthesis.f64 expected))
                 (case> (#try.Success actual)
@@ -41,7 +41,7 @@
   (-> Runner Test)
   (do {! r.monad}
     [register (|> r.nat (\ ! map (n.% 100)))
-     expected r.safe-frac]
+     expected r.safe_frac]
     (_.test "Local variables."
             (|> (synthesis.branch/let [(synthesis.f64 expected)
                                        register
-- 
cgit v1.2.3