From e64b6d0114c26a455e19a416b5f02a4d19dd711f Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Mon, 26 Jul 2021 01:45:57 -0400
Subject: Re-named Promise to Async.

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

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

diff --git a/stdlib/source/program/scriptum.lux b/stdlib/source/program/scriptum.lux
index 708db73dd..5d3117062 100644
--- a/stdlib/source/program/scriptum.lux
+++ b/stdlib/source/program/scriptum.lux
@@ -127,7 +127,7 @@
 
           _
           (|> members
-              (list.zip/2 tags)
+              (list.zipped/2 tags)
               (list\map (function (_ [[_ t_name] type])
                           (case type
                             (#.Product _)
@@ -150,7 +150,7 @@
 
           _
           (let [member_docs (|> members
-                                (list.zip/2 tags)
+                                (list.zipped/2 tags)
                                 (list\map (function (_ [[_ t_name] type])
                                             (if signature?
                                               (format "(: " (pprint_type_definition level type_func_info #.None module signature? recursive_type? type) text.new_line "   "  t_name ")")
@@ -378,7 +378,7 @@
                              ")"))))
 
     _
-    (meta.fail (exception.construct anonymous_type_definition type))))
+    (meta.failure (exception.construct anonymous_type_definition type))))
 
 (def: (document_types module types)
   (-> Text (List Value) (Meta (Markdown Block)))
@@ -510,7 +510,7 @@
      lux_exports (monad.map ! (function.compose meta.exports product.left)
                             lux_modules)
      module_documentation (|> (list\map organize_definitions lux_exports)
-                              (list.zip/2 lux_modules)
+                              (list.zipped/2 lux_modules)
                               (monad.map ! document_module))
      #let [_ (io.run (monad.map io.monad save_documentation! module_documentation))]]
     (wrap (list))))
-- 
cgit v1.2.3