From 930f7fe13b6dc6b7e94b7d7bd293ccc54adfac27 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 10 Feb 2018 23:18:18 -0800
Subject: [PATCH] Insert a reduction step in the history when processing a
 closed subexpression.

---
 src/runtime/syntax.scm | 10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)

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