From d97f92842981501a8e0d95a1b4f1ba3d9e72f0d5 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 17 May 2020 20:10:42 -0400
Subject: Local binding names for (co|indexed-)?monads are now explicitly set.

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

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

diff --git a/stdlib/source/program/scriptum.lux b/stdlib/source/program/scriptum.lux
index f44abef88..419e8a4c9 100644
--- a/stdlib/source/program/scriptum.lux
+++ b/stdlib/source/program/scriptum.lux
@@ -375,7 +375,7 @@
 
 (def: (document-types module types)
   (-> Text (List Value) (Meta (Markdown Block)))
-  (do macro.monad
+  (do {@ macro.monad}
     [type-docs (monad.map @
                           (: (-> Value (Meta (Markdown Block)))
                              (function (_ [name def-annotations type])
@@ -498,7 +498,7 @@
         (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))
-- 
cgit v1.2.3