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 a07b86bab72f5166712d56f4e6062fa81bfbc042..c3930f328f4c6ba28bbdf51660eb6798cfa1ccf1 100644 (file)
--- 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)