aboutsummaryrefslogtreecommitdiff
path: root/stdlib/source/specification/compositor
diff options
context:
space:
mode:
authorEduardo Julian2022-04-08 21:32:38 -0400
committerEduardo Julian2022-04-08 21:32:38 -0400
commit120ebb44dbb1a20fc150e5e58099f90be2e61d49 (patch)
tree32bcc24d1a48989faf4207bbce423c483b9ce1ba /stdlib/source/specification/compositor
parent0d909187d5b9effcd08f533d50af7d29c0d6bfd8 (diff)
Better names for random text/character generators.
Diffstat (limited to '')
-rw-r--r--stdlib/source/specification/compositor/analysis/type.lux2
-rw-r--r--stdlib/source/specification/compositor/generation/common.lux8
-rw-r--r--stdlib/source/specification/compositor/generation/reference.lux2
3 files changed, 6 insertions, 6 deletions
diff --git a/stdlib/source/specification/compositor/analysis/type.lux b/stdlib/source/specification/compositor/analysis/type.lux
index b84e18888..5f2820ba2 100644
--- a/stdlib/source/specification/compositor/analysis/type.lux
+++ b/stdlib/source/specification/compositor/analysis/type.lux
@@ -48,7 +48,7 @@
[r.int {0 #0 "#I64" {0 #1 {0 #0 "#Int" {0 #0}} {0 #0}}} code.int]
[r.rev {0 #0 "#I64" {0 #1 {0 #0 "#Rev" {0 #0}} {0 #0}}} code.rev]
[r.safe_frac {0 #0 "#Frac" {0 #0}} code.frac]
- [(r.ascii/upper_alpha 5) {0 #0 "#Text" {0 #0}} code.text]
+ [(r.upper_case_alpha 5) {0 #0 "#Text" {0 #0}} code.text]
)))))
(def: .public (spec expander state)
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)