From 64561829d6d7ba8c3d73676a12d429ffca3b0585 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 20 Jan 2018 13:01:00 -0800
Subject: [PATCH] Fix typo reported by jmarshall.

---
 src/runtime/mit-syntax.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

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)
-- 
2.25.1