From e2fcc7ebbb1f423a3137aa5525b9409f870fe191 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Tue, 10 Mar 2015 01:39:35 -0400
Subject: - Modified the compiler so parser syntax tokens are stored in the
 same format as lux data-structures, to ease communication between the
 compiler & macros.

---
 source/lux.lux | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

(limited to 'source/lux.lux')

diff --git a/source/lux.lux b/source/lux.lux
index b400e0da8..76ea2dc4c 100644
--- a/source/lux.lux
+++ b/source/lux.lux
@@ -333,9 +333,7 @@
                              init
                              args)))))
 
-(def complement (. not))
-
-(def (constant x)
+(def (const x)
   (lambda [_] x))
 
 (def (int> x y)
@@ -574,15 +572,15 @@
   (let [output (case' tokens
                       (#Cons [tag (#Cons [func (#Cons [record #Nil])])])
                       (` (let [_record_ (~ record)]
-                           (set@' (~ tag) _record_ ((~ func) (get@' (~ tag) _record_)))))
+                           (set@' (~ tag) ((~ func) (get@' (~ tag) _record_)) _record_)))
 
                       (#Cons [tag (#Cons [func #Nil])])
                       (` (lambda [record]
-                           (` (set@' (~ tag) record ((~ func) (get@' (~ tag) record))))))
+                           (` (set@' (~ tag) ((~ func) (get@' (~ tag) record)) record))))
 
                       (#Cons [tag #Nil])
                       (` (lambda [func record]
-                           (set@' (~ tag) record (func (get@' (~ tag) record))))))]
+                           (set@' (~ tag) (func (get@' (~ tag) record)) record))))]
     (return (list output))))
 
 (def (show-int int)
-- 
cgit v1.2.3