From bcd70df3568d71f14763959f454c15d8164e2d15 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 1 Aug 2021 03:36:11 -0400
Subject: Even more renamings.

---
 stdlib/source/program/scriptum.lux | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'stdlib/source/program/scriptum.lux')

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)]
-- 
cgit v1.2.3