From 464b6e8f5e6c62f58fa8c7ff61ab2ad215e98bd1 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Mon, 9 Aug 2021 23:02:01 -0400
Subject: Improved single-line comment syntax (from "##" to "...").

---
 stdlib/source/specification/compositor/generation/common.lux | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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

diff --git a/stdlib/source/specification/compositor/generation/common.lux b/stdlib/source/specification/compositor/generation/common.lux
index 1e3d6bb9e..93dd3bba5 100644
--- a/stdlib/source/specification/compositor/generation/common.lux
+++ b/stdlib/source/specification/compositor/generation/common.lux
@@ -30,7 +30,7 @@
 
 (def: safe
   (-> Text Text)
-  (text.replace_all " " "_"))
+  (text.replaced " " "_"))
 
 (def: (bit run)
   (-> Runner Test)
@@ -187,8 +187,8 @@
            concatenatedS (#synthesis.Extension "lux text concat" (list sample_lowerS sample_upperS))
            pre_rep_once (format sample_lower sample_upper)
            post_rep_once (format sample_lower sample_alpha)
-           pre_rep_all (|> (list.repeat sample_size sample_lower) (text.join_with sample_upper))
-           post_rep_all (|> (list.repeat sample_size sample_lower) (text.join_with sample_alpha))]]
+           pre_rep_all (|> sample_lower (list.repeated sample_size) (text.join_with sample_upper))
+           post_rep_all (|> sample_lower (list.repeated sample_size) (text.join_with sample_alpha))]]
     ($_ _.and
         (_.test "Can compare texts for equality."
                 (and (|> (#synthesis.Extension "lux text =" (list sample_lowerS sample_lowerS))
-- 
cgit v1.2.3