From cb4beecbbc4ab3ec918ab640ffb621036707678f Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Mon, 4 Feb 2019 19:38:19 -0400
Subject: Fixed a bug in how the "_$" macro works.

---
 stdlib/source/lux.lux | 9 ++++++++-
 1 file changed, 8 insertions(+), 1 deletion(-)

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

diff --git a/stdlib/source/lux.lux b/stdlib/source/lux.lux
index 334632272..1a35b4ebd 100644
--- a/stdlib/source/lux.lux
+++ b/stdlib/source/lux.lux
@@ -1574,6 +1574,13 @@
            (form$ (list op a1 a2))}
           op))
 
+(def:''' (function/flip func)
+         #Nil
+         (All [a b c]
+           (-> (-> a b c) (-> b a c)))
+         (function' [right left]
+                    (func left right)))
+
 (macro:' #export (_$ tokens)
          (#Cons [(tag$ ["lux" "doc"])
                  (text$ ("lux text concat"
@@ -1586,7 +1593,7 @@
                 #Nil)
          ({(#Cons op tokens')
            ({(#Cons first nexts)
-             (return (list (list/fold (_$_joiner op) first nexts)))
+             (return (list (list/fold (function/flip (_$_joiner op)) first nexts)))
 
              _
              (fail "Wrong syntax for _$")}
-- 
cgit v1.2.3