From 204c82d737e3a77da1ab4a4f4fe364c125e9e5f9 Mon Sep 17 00:00:00 2001
From: Eduardo Julian
Date: Sun, 15 Feb 2015 19:51:07 -0400
Subject: Super refactoring that breaks the system: Part 4

---
 source/lux.lux | 17 ++++++++++++++++-
 1 file changed, 16 insertions(+), 1 deletion(-)

(limited to 'source/lux.lux')

diff --git a/source/lux.lux b/source/lux.lux
index 3e29a50c9..f11e8031b 100644
--- a/source/lux.lux
+++ b/source/lux.lux
@@ -67,6 +67,16 @@
             [java.lang.Object _7] [java.lang.Object _8]])
 
 ## Base functions & macros
+(def' let'
+  (lambda' _ tokens
+      (lambda' _ state
+          (case' tokens
+                 (#Cons lhs (#Cons rhs (#Cons body #Nil)))
+                 [(#Cons (#Form (#Cons (#Ident "case'") (#Cons rhs (#Cons lhs (#Cons body #Nil)))))
+                         #Nil)
+                  state])
+          )))
+
 (def' lambda
   (lambda' _ tokens
       (lambda' _ state
@@ -84,7 +94,8 @@
                                                                                  (#Cons (#Form (#Cons (#Ident "_") args'))
                                                                                         (#Cons body #Nil)))))
                                                                  #Nil))))))
-                [(#Cons output #Nil) state]))))
+                [(#Cons output #Nil) state])
+          )))
 (declare-macro lambda)
 
 (def' def
@@ -106,6 +117,10 @@
           [(#Cons output #Nil) state])))
 (declare-macro def)
 
+(def (comment tokens state)
+  [#Nil state])
+(declare-macro comment)
+
 (def (+ x y)
   (jvm;iadd x y))
 
-- 
cgit v1.2.3