From 120ebb44dbb1a20fc150e5e58099f90be2e61d49 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Fri, 8 Apr 2022 21:32:38 -0400
Subject: Better names for random text/character generators.

---
 stdlib/source/specification/compositor/generation/common.lux | 8 ++++----
 1 file changed, 4 insertions(+), 4 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 599dae209..77854d953 100644
--- a/stdlib/source/specification/compositor/generation/common.lux
+++ b/stdlib/source/specification/compositor/generation/common.lux
@@ -183,9 +183,9 @@
   (-> Runner Test)
   (do [! r.monad]
     [sample_size (|> r.nat (# ! each (|>> (n.% 10) (n.max 1))))
-     sample_lower (r.ascii/lower_alpha sample_size)
-     sample_upper (r.ascii/upper_alpha sample_size)
-     sample_alpha (|> (r.ascii/alpha sample_size)
+     sample_lower (r.lower_case_alpha sample_size)
+     sample_upper (r.upper_case_alpha sample_size)
+     sample_alpha (|> (r.alphabetic sample_size)
                       (r.only (|>> (text#= sample_upper) not)))
      char_idx (|> r.nat (# ! each (n.% sample_size)))
      .let [sample_lowerS (synthesis.text sample_lower)
@@ -303,7 +303,7 @@
 (def: (io run)
   (-> Runner Test)
   (do r.monad
-    [message (r.ascii/alpha 5)]
+    [message (r.alphabetic 5)]
     (all _.and
          (_.test "Can log messages."
                  (|> {synthesis.#Extension "lux io log"
-- 
cgit v1.2.3