From: Joe Marshall <edu/mit/csail/zurich/jrm>
Date: Fri, 26 Aug 1988 22:53:47 +0000 (+0000)
Subject: (let loop ((x loop)) x) worked when it shouldn't have.
X-Git-Tag: 20090517-FFI~12583
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ab3e78dd4a6aa45c1833426976fae484b76d0ad5;p=mit-scheme.git

(let loop ((x loop)) x) worked when it shouldn't have.
has been fixed so that the name is not visible to the init forms.
---

diff --git a/v7/src/runtime/syntax.scm b/v7/src/runtime/syntax.scm
index c4d5b6fa2..8f1e05a65 100644
--- a/v7/src/runtime/syntax.scm
+++ b/v7/src/runtime/syntax.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/Attic/syntax.scm,v 14.5 1988/08/05 20:49:14 cph Exp $
+$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/runtime/Attic/syntax.scm,v 14.6 1988/08/26 22:53:47 jrm Exp $
 
 Copyright (c) 1988 Massachusetts Institute of Technology
 
@@ -364,11 +364,12 @@ MIT in each case. |#
   (if (symbol? name-or-pattern)
       (syntax-bindings pattern-or-first
 	(lambda (names values)
-	  (make-letrec (list name-or-pattern)
-		       (list (make-named-lambda name-or-pattern names
-						(syntax-sequence rest)))
-		       (make-combination (make-variable name-or-pattern)
-					 values))))
+	  (make-combination
+	   (make-letrec (list name-or-pattern)
+			(list (make-named-lambda name-or-pattern names
+						 (syntax-sequence rest)))
+			(make-variable name-or-pattern))
+	   values)))
       (syntax-bindings name-or-pattern
 	(lambda (names values)
 	  (make-closed-block