From 455018ec68f2c127db489048351bc48f3982fe23 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 6 Sep 2015 01:03:19 -0400
Subject: - Expanded the standard library. - Fixed some minor bugs. - Added the
 updated code for the parser (forgot to add it to a previous commit).

---
 source/lux.lux | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

(limited to 'source/lux.lux')

diff --git a/source/lux.lux b/source/lux.lux
index 5f5c6925b..164dea835 100644
--- a/source/lux.lux
+++ b/source/lux.lux
@@ -2932,23 +2932,23 @@
 
           _
           (fail "Can only \"use\" records.")))
+
+      [_ (#TupleS members)]
+      (return (@list (foldL (: (-> AST AST AST)
+                               (lambda [body' struct'] (` (;;using (~ struct') (~ body')))))
+                            body
+                            members)))
       
       _
       (let [dummy (symbol$ ["" ""])]
         (return (@list (` (;_lux_case (~ struct)
                                       (~ dummy)
-                                      (;using (~ dummy)
-                                              (~ body))))))))
+                                      (;;using (~ dummy)
+                                               (~ body))))))))
 
     _
     (fail "Wrong syntax for using")))
 
-(def (flip f)
-  (All [a b c]
-    (-> (-> a b c) (-> b a c)))
-  (lambda [y x]
-    (f x y)))
-
 (defmacro #export (cond tokens)
   (if (i= 0 (i% (length tokens) 2))
     (fail "cond requires an even number of arguments.")
-- 
cgit v1.2.3