Remove need for `lambda` to include an implicit `begin` new-start

This way i can write begin in terms of lambda

1 files changed, 8 insertions, 7 deletions

@@ -32,9 +32,13 @@ function eval.Proc (params, body, env)
                                         p, a = p.cdr, a.cdr
                                 end
                                 pp.pp(self.body)
-                                return eval.eval(
-                                        self.body,
-                                        eval.Env(inner, self.env))
+                                local b = self.body
+                                local e = eval.Env(inner, self.env)
+                                while not isNull(b.cdr) do
+                                        eval.eval(b.car, e)
+                                        b = b.cdr
+                                end
+                                return eval.eval(b.car, e)
                         end,
         }
         return setmetatable(v, mt)
@@ -54,10 +58,7 @@ function eval.eval (x, env)
                         env[args.car] = eval.eval(args.cdr.car, env)
                         return nil
                 elseif op == "lambda" or op == "lam" then
-                        return eval.Proc(
-                                args.car,
-                                Cons("begin", args.cdr), -- i don't like this
-                                env)
+                        return eval.Proc(args.car, args.cdr, env)
                 elseif op == "if" then
                         assert(not isNull(args.cdr), "Malformed 'if'")
                         local test, conseq, alt =