From 7d9ba962cbb5c93367df3a0d2cdf3aea3a62c47d Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 11 Jan 2022 03:34:19 -0400
Subject: Fixed a bug that broke re-compilation of STDLIB tests in Lua.

---
 stdlib/source/library/lux.lux | 26 +++++---------------------
 1 file changed, 5 insertions(+), 21 deletions(-)

(limited to 'stdlib/source/library/lux.lux')

diff --git a/stdlib/source/library/lux.lux b/stdlib/source/library/lux.lux
index d65fa7bcb..3fafb38f5 100644
--- a/stdlib/source/library/lux.lux
+++ b/stdlib/source/library/lux.lux
@@ -825,19 +825,6 @@
            (failure "Wrong syntax for $'")}
           tokens))
 
-... (def:'' .private (list#each f xs)
-...         {#UnivQ {#End}
-...                 {#UnivQ {#End}
-...                         {#Function {#Function {#Parameter 3} {#Parameter 1}}
-...                                    {#Function ($' List {#Parameter 3})
-...                                               ($' List {#Parameter 1})}}}}
-...         ({{#End}
-...           {#End}
-
-...           {#Item x xs'}
-...           {#Item (f x) (list#each f xs')}}
-...          xs))
-
 (def:'' .private (list#mix f init xs)
         ... (All (_ a b) (-> (-> b a a) a (List b) a))
         {#UnivQ {#End} {#UnivQ {#End} {#Function {#Function {#Parameter 1}
@@ -1320,12 +1307,9 @@
 
 (def:''' .private (list#composite xs ys)
          (All (_ a) (-> ($' List a) ($' List a) ($' List a)))
-         ({{#Item x xs'}
-           {#Item x (list#composite xs' ys)}
-
-           {#End}
-           ys}
-          xs))
+         (list#mix (function' [head tail] {#Item head tail})
+                   ys
+                   (list#reversed xs)))
 
 (def:''' .private (right_associativity op a1 a2)
          (-> Code Code Code Code)
@@ -3993,7 +3977,7 @@
 (def: (referral_definitions module_name [r_defs r_opens])
   (-> Text Refer (Meta (List Code)))
   (do meta_monad
-    [current_module current_module_name
+    [current_module ..current_module_name
      .let [test_referrals (: (-> Text (List Text) (List Text) (Meta (List Any)))
                              (function (_ module_name all_defs referred_defs)
                                (monad#each meta_monad
@@ -4804,7 +4788,7 @@
 
 (macro: .public (using _imports)
   (do meta_monad
-    [current_module current_module_name
+    [current_module ..current_module_name
      imports (imports_parser #0 current_module {#End} _imports)
      .let [=imports (|> imports
                         (list#each (: (-> Importation Code)
-- 
cgit v1.2.3