cleanup and minor refactoringHEADmaster

1 files changed, 14 insertions, 0 deletions

diff --git a/files/test-lambda.l b/files/test-lambda.l
index d58169a..3136452 100644
--- a/files/test-lambda.l
+++ b/files/test-lambda.l
@@ -92,3 +92,17 @@
 (cond (((= 1 2) 3)
        ((= 1 (+ 1 1)) (+ 6 2))
        (1 (quote test))))
+
+(defmacro begin (vars)
+  (foldr (lambda (var rest) `((lambda (__) ,rest) ,var)) '__ vars))
+
+(begin
+ ((define inc (lambda (a) (+ a 1)))
+  (inc 1)))
+
+(define inc (lambda (a) (+ a 1)))
+
+(begin
+ ((+ 0 1)
+  (define a inc)))
+  ;; (a 1)))