letが動かない

gistfile1.scm

(define cadr (lambda (obj) (car (cdr obj))))
(define cddr (lambda (obj) (cdr (cdr obj))))
(define caddr (lambda (obj) (car (cddr obj))))
(define cdddr (lambda (obj) (cdr (cddr obj))))

(define map
  (lambda (f lst)
    (if (null? lst)
	'()
	(cons (f (car lst))
	      (map f (cdr lst))))))

(define close-syntax (lambda (form env) (make-syntactic-closure env '() form)))

(define sc-macro-transformer
  (lambda (f)
    (lambda (expr use-env mac-env)
      (make-syntactic-closure mac-env '() (f expr use-env)))))


(define-syntax let
  (sc-macro-transformer
   (lambda (form environment)
     ((lambda (binds bodies)
	((lambda (params args bodies)
	   (cons (cons 'lambda (cons params bodies)) args))
	 (map (lambda (x) (close-syntax x environment))
	      (map car binds))
	 (map (lambda (x) (close-syntax x environment))
	      (map cadr binds))
	 (map (lambda (x) (close-syntax x environment))
	      bodies))))
      (cadr form)
      (cddr form))))