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 ++++----
 stdlib/source/specification/compositor/generation/reference.lux | 2 +-
 2 files changed, 5 insertions(+), 5 deletions(-)

(limited to 'stdlib/source/specification/compositor/generation')

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"
diff --git a/stdlib/source/specification/compositor/generation/reference.lux b/stdlib/source/specification/compositor/generation/reference.lux
index f9d5e3ec9..df9482058 100644
--- a/stdlib/source/specification/compositor/generation/reference.lux
+++ b/stdlib/source/specification/compositor/generation/reference.lux
@@ -21,7 +21,7 @@
 
 (def: symbol
   (Random Symbol)
-  (let [symbol_part (r.ascii/upper_alpha 5)]
+  (let [symbol_part (r.upper_case_alpha 5)]
     [(r.and symbol_part symbol_part)]))
 
 (def: (definition define)
-- 
cgit v1.2.3