Normalize lambdas to be single arguments only

[scheme.git] / ast.scm

diff --git a/ast.scm b/ast.scm
index 19dc7a0f5d3bea33793e1de676016be618baa103..05716e40814287b15a67cfe7a87b1339734f13b0 100644 (file)
--- a/ast.scm
+++ b/ast.scm
@@ -13,8 +13,11 @@
 (define (lambda? x)
   (and (list? x) (eq? (car x) 'lambda)))
 
-(define lambda-arg cadr)
-(define lambda-body cddr)
+; for use in normalized form
+(define lambda-arg caadr)
+; for use elsewhere
+(define lambda-args cadr)
+(define lambda-body caddr)
 
 (define (var? x)
   (and (not (list? x)) (symbol? x)))