Fix typo reported by jmarshall.

diff --git a/src/runtime/mit-syntax.scm b/src/runtime/mit-syntax.scm
index ce96390a023eb566ed909fe71ce3ca7ecbc960a7..9728a7cd36c75ea09f9a55752711e0eac522a1bf 100644 (file)
--- a/src/runtime/mit-syntax.scm
+++ b/src/runtime/mit-syntax.scm
@@ -189,9 +189,9 @@ USA.
          (let ((names (map binding-item/name binding-items))
                (values (map binding-item/value binding-items))
                (body-item
-                (classify/body (cddr form)
-                               (make-internal-syntactic-environment
-                                binding-env))))
+                (classify/body
+                 body
+                 (make-internal-syntactic-environment binding-env))))
            (lambda ()
              (output/let names
                          (map compile-item/expression values)