From eea741e9b4a47ae09832311d6d61f0bd6024f673 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sat, 31 Oct 2020 02:59:48 -0400
Subject: Easy to use Rev constants.

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

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

diff --git a/stdlib/source/program/scriptum.lux b/stdlib/source/program/scriptum.lux
index 1cb0ee21a..9ad2c59a4 100644
--- a/stdlib/source/program/scriptum.lux
+++ b/stdlib/source/program/scriptum.lux
@@ -376,8 +376,8 @@
 
 (def: (document-types module types)
   (-> Text (List Value) (Meta (Markdown Block)))
-  (do {@ macro.monad}
-    [type-docs (monad.map @
+  (do {! macro.monad}
+    [type-docs (monad.map !
                           (: (-> Value (Meta (Markdown Block)))
                              (function (_ [name def-annotations type])
                                (do macro.monad
@@ -499,16 +499,16 @@
         (wrap [])))))
 
 (macro: (gen-documentation! _)
-  (do {@ macro.monad}
+  (do {! macro.monad}
     [all-modules macro.modules
      #let [lux-modules (|> all-modules
                            (list.filter (function.compose lux-module? product.left))
                            (list.sort name-sort))]
-     lux-exports (monad.map @ (function.compose macro.exports product.left)
+     lux-exports (monad.map ! (function.compose macro.exports product.left)
                             lux-modules)
      module-documentation (|> (list@map organize-definitions lux-exports)
                               (list.zip/2 lux-modules)
-                              (monad.map @ document-module))
+                              (monad.map ! document-module))
      #let [_ (io.run (monad.map io.monad save-documentation! module-documentation))]]
     (wrap (list))))
 
-- 
cgit v1.2.3