In STRIP-SYNTACTIC-CLOSURES, don't copy the argument unless it has

embedded syntactic closures.

diff --git a/v7/src/runtime/syntactic-closures.scm b/v7/src/runtime/syntactic-closures.scm
index 47adc11ae035eb739391a4ef4941833006aa02a0..2933550eb81bb14a66b18e7f073540d492fc1f03 100644 (file)
--- a/v7/src/runtime/syntactic-closures.scm
+++ b/v7/src/runtime/syntactic-closures.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: syntactic-closures.scm,v 14.5 2002/02/19 21:27:50 cph Exp $
+;;; $Id: syntactic-closures.scm,v 14.6 2002/02/19 21:28:20 cph Exp $
 ;;;
 ;;; Copyright (c) 1989-1991, 2001, 2002 Massachusetts Institute of Technology
 ;;;
@@ -318,7 +318,8 @@
                  (loop (cdr object)))
            (if (syntactic-closure? object)
                (loop (syntactic-closure/form object))
-               object)))))
+               object)))
+      object))
 
 (define (close-syntax form environment)
   (make-syntactic-closure environment '() form))