diff options
Diffstat (limited to 'source')
| -rw-r--r-- | source/lux.lux | 17 |
1 files changed, 16 insertions, 1 deletions
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)) |