From: Chris Hanson <org/chris-hanson/cph>
Date: Sun, 11 Feb 2018 07:18:18 +0000 (-0800)
Subject: Insert a reduction step in the history when processing a closed subexpression.
X-Git-Tag: mit-scheme-pucked-x11-0.3.1~7^2~257
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=930f7fe13b6dc6b7e94b7d7bd293ccc54adfac27;p=mit-scheme.git

Insert a reduction step in the history when processing a closed subexpression.
---

diff --git a/src/runtime/syntax.scm b/src/runtime/syntax.scm
index a07b86bab..c3930f328 100644
--- a/src/runtime/syntax.scm
+++ b/src/runtime/syntax.scm
@@ -89,11 +89,11 @@ USA.
   (cond ((identifier? form)
 	 (lookup-identifier form senv))
 	((syntactic-closure? form)
-	 (classify-form (syntactic-closure-form form)
-			(make-partial-senv (syntactic-closure-free form)
-					   senv
-					   (syntactic-closure-senv form))
-			hist))
+	 (reclassify (syntactic-closure-form form)
+		     (make-partial-senv (syntactic-closure-free form)
+					senv
+					(syntactic-closure-senv form))
+		     hist))
 	((pair? form)
 	 (let ((item (classify-form-car form senv hist)))
 	   (cond ((classifier-item? item)