diff options
| author | Eduardo Julian | 2021-08-01 03:36:11 -0400 |
|---|---|---|
| committer | Eduardo Julian | 2021-08-01 03:36:11 -0400 |
| commit | bcd70df3568d71f14763959f454c15d8164e2d15 (patch) | |
| tree | 2ec5fa437d008af01b8e3887f532a2b6064cddb5 /stdlib/source/program/scriptum.lux | |
| parent | fa320d22d0d7888feddcabe43a2bc9f1e0335032 (diff) | |
Even more renamings.
Diffstat (limited to 'stdlib/source/program/scriptum.lux')
| -rw-r--r-- | stdlib/source/program/scriptum.lux | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/stdlib/source/program/scriptum.lux b/stdlib/source/program/scriptum.lux index a440042c4..da76896eb 100644 --- a/stdlib/source/program/scriptum.lux +++ b/stdlib/source/program/scriptum.lux @@ -43,7 +43,7 @@ (-> Nat Text) (case (text.nth id ..name_options) (#.Some char) - (text.of_code char) + (text.of_char char) #.None (format (parameter_type_name (n./ name_options_count id)) @@ -119,7 +119,7 @@ (let [members (type.flat_variant type)] (case tags #.End - (format "(| " + (format "(Or " (|> members (list\map (pprint_type_definition level type_func_info #.None module signature? recursive_type?)) (text.join_with " ")) @@ -218,7 +218,7 @@ (#.Sum _) (let [members (type.flat_variant type)] - (format "(| " (|> members (list\map (pprint_type level type_func_name module)) (list.interpose " ") (text.join_with "")) ")")) + (format "(Or " (|> members (list\map (pprint_type level type_func_name module)) (list.interpose " ") (text.join_with "")) ")")) (#.Product _) (let [members (type.flat_tuple type)] |