diff options
Diffstat (limited to '')
-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)] |