From 4f2ab5424d3a5cb51b4272aff7679bb7238bd899 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 19 Feb 2002 21:28:20 +0000
Subject: [PATCH] In STRIP-SYNTACTIC-CLOSURES, don't copy the argument unless
 it has embedded syntactic closures.

---
 v7/src/runtime/syntactic-closures.scm | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/v7/src/runtime/syntactic-closures.scm b/v7/src/runtime/syntactic-closures.scm
index 47adc11ae..2933550eb 100644
--- 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))
-- 
2.25.1