From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 20 Jan 2018 21:01:00 +0000 (-0800)
Subject: Fix typo reported by jmarshall.
X-Git-Tag: mit-scheme-pucked-x11-0.3.1~7^2~330
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=64561829d6d7ba8c3d73676a12d429ffca3b0585;p=mit-scheme.git

Fix typo reported by jmarshall.
---

diff --git a/src/runtime/mit-syntax.scm b/src/runtime/mit-syntax.scm
index ce96390a0..9728a7cd3 100644
--- 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)