From: Chris Hanson <org/chris-hanson/cph>
Date: Tue, 19 Feb 2002 21:28:20 +0000 (+0000)
Subject: In STRIP-SYNTACTIC-CLOSURES, don't copy the argument unless it has
X-Git-Tag: 20090517-FFI~2230
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=4f2ab5424d3a5cb51b4272aff7679bb7238bd899;p=mit-scheme.git

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