From 5d4583aebd00adced10275b32ff1a93ab418be50 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Wed, 28 Jul 2021 04:48:42 -0400
Subject: Re-named List's tags: Nil => End && Cons => Item

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

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

diff --git a/stdlib/source/program/scriptum.lux b/stdlib/source/program/scriptum.lux
index 889ba4a0f..e429ff86f 100644
--- a/stdlib/source/program/scriptum.lux
+++ b/stdlib/source/program/scriptum.lux
@@ -109,7 +109,7 @@
     (case [recursive_type? type]
       [_ (#.Primitive name params)]
       (case params
-        #.Nil
+        #.End
         (format "(primitive " (%.text name) ")")
 
         _
@@ -118,7 +118,7 @@
       [_ (#.Sum _)]
       (let [members (type.flat_variant type)]
         (case tags
-          #.Nil
+          #.End
           (format "(| "
                   (|> members
                       (list\map (pprint_type_definition level type_func_info #.None module signature? recursive_type?))
@@ -145,7 +145,7 @@
       [_ (#.Product _)]
       (let [members (type.flat_tuple type)]
         (case tags
-          #.Nil
+          #.End
           (format "[" (|> members (list\map (pprint_type_definition level type_func_info #.None module signature? recursive_type?)) (text.join_with " ")) "]")
 
           _
@@ -183,7 +183,7 @@
                body_doc (pprint_type_definition (n.+ level level') type_func_info tags module signature? recursive_type? body)]
            (format "(" <name> " " "[" (text.join_with " " args) "]"
                    (case tags
-                     #.Nil
+                     #.End
                      (format " " body_doc)
 
                      _
@@ -210,7 +210,7 @@
   (case type
     (#.Primitive name params)
     (case params
-      #.Nil
+      #.End
       (format "(primitive " (%.text name) ")")
 
       _
@@ -285,25 +285,25 @@
   (cond (type\= .Type def_type)
         (update@ #types
                  (: (Mutation (List Value))
-                    (|>> (#.Cons [name def_annotations (:as Type def_value)])))
+                    (|>> (#.Item [name def_annotations (:as Type def_value)])))
                  organization)
 
         (type\= .Macro def_type)
         (update@ #macros
                  (: (Mutation (List [Text Code]))
-                    (|>> (#.Cons [name def_annotations])))
+                    (|>> (#.Item [name def_annotations])))
                  organization)
 
         (annotation.implementation? def_annotations)
         (update@ #implementations
                  (: (Mutation (List Value))
-                    (|>> (#.Cons [name def_annotations def_type])))
+                    (|>> (#.Item [name def_annotations def_type])))
                  organization)
 
         ## else
         (update@ #values
                  (: (Mutation (List Value))
-                    (|>> (#.Cons [name def_annotations def_type])))
+                    (|>> (#.Item [name def_annotations def_type])))
                  organization)))
 
 (def: name_sort
@@ -359,7 +359,7 @@
              type_arguments (annotation.type_arguments def_annotations)
              signature? (annotation.signature? def_annotations)
              usage (case type_arguments
-                     #.Nil
+                     #.End
                      _name
 
                      _
@@ -429,7 +429,7 @@
          (list\map (function (_ [name def_annotations value_type])
                      (let [?doc (annotation.documentation def_annotations)
                            usage (case (annotation.function_arguments def_annotations)
-                                   #.Nil
+                                   #.End
                                    name
 
                                    args
-- 
cgit v1.2.3