X-Git-Url: https://thelambdalab.xyz/gitweb/index.cgi?p=scheme.forth.jl.git;a=blobdiff_plain;f=src%2Fscheme-library.scm;h=73e8a4e613c55a8f35ec2ba927cfb99a7af96fc0;hp=fb76f3ae009ae1e874c8dfeda598b0ff1e93b1f7;hb=133e62278bc80778a34f1ec1fdded5ec0bfb6b5e;hpb=1c2a2cf4faaf55d97af61f5f1b400b0fb1e00a91

diff --git a/src/scheme-library.scm b/src/scheme-library.scm
index fb76f3a..73e8a4e 100644
--- a/src/scheme-library.scm
+++ b/src/scheme-library.scm
@@ -239,19 +239,9 @@
 
 ; let
 
-(define (let-vars args)
-  (if (null? args)
-    '()
-    (cons (caar args) (let-vars (cdr args)))))
-
-(define (let-inits args)
-  (if (null? args)
-    '()
-  (cons (cadar args) (let-inits (cdr args)))))
-
 (define-macro (let args . body)
-              `((lambda ,(let-vars args)
-                 ,@body) ,@(let-inits args)))
+              `((lambda ,(map (lambda (x) (car x)) args)
+                 ,@body) ,@(map (lambda (x) (cadr x)) args)))
 
 ; while