Fixed a bug that broke re-compilation of STDLIB tests in Lua.

1 files changed, 23 insertions, 22 deletions

diff --git a/stdlib/source/library/lux/tool/compiler/meta/archive/document.lux b/stdlib/source/library/lux/tool/compiler/meta/archive/document.lux
index b9b2ec192..1171852cb 100644
--- a/stdlib/source/library/lux/tool/compiler/meta/archive/document.lux
+++ b/stdlib/source/library/lux/tool/compiler/meta/archive/document.lux
@@ -1,24 +1,24 @@
 (.using
-  [library
-   [lux {"-" Module}
-    [abstract
-     [monad {"+" do}]]
-    [control
-     ["[0]" try {"+" Try}]
-     ["[0]" exception {"+" exception:}]
-     ["<>" parser
-      [binary {"+" Parser}]]]
-    [data
-     [collection
-      ["[0]" dictionary {"+" Dictionary}]]
-     [format
-      ["[0]" binary {"+" Writer}]]]
-    [type {"+" :sharing}
-     abstract]]]
-  [//
-   ["[0]" signature {"+" Signature}]
-   ["[0]" key {"+" Key}]
-   [descriptor {"+" Module}]])
+ [library
+  [lux {"-" Module}
+   [abstract
+    [monad {"+" do}]]
+   [control
+    ["[0]" try {"+" Try}]
+    ["[0]" exception {"+" exception:}]
+    ["<>" parser
+     [binary {"+" Parser}]]]
+   [data
+    [collection
+     ["[0]" dictionary {"+" Dictionary}]]
+    [format
+     ["[0]" binary {"+" Writer}]]]
+   [type {"+" :sharing}
+    abstract]]]
+ [//
+  ["[0]" signature {"+" Signature}]
+  ["[0]" key {"+" Key}]
+  [descriptor {"+" Module}]])
 
 (exception: .public (invalid_signature [expected Signature
                                         actual Signature])
@@ -63,8 +63,9 @@
 
   (def: .public (writer content)
     (All (_ d) (-> (Writer d) (Writer (Document d))))
-    (let [writer (binary.and signature.writer
-                             content)]
+    (let [writer ($_ binary.and
+                     signature.writer
+                     content)]
       (|>> :representation writer)))
 
   (def: .public parser