From: Chris Hanson <org/chris-hanson/cph>
Date: Sat, 4 Jun 2005 04:02:41 +0000 (+0000)
Subject: Fix typo in previous revision.
X-Git-Tag: 20090517-FFI~1283
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=7774f98a119fd3d575400f01b444f68607cfef1b;p=mit-scheme.git

Fix typo in previous revision.
---

diff --git a/v7/src/star-parser/shared.scm b/v7/src/star-parser/shared.scm
index 2d14dc605..9a8a92173 100644
--- a/v7/src/star-parser/shared.scm
+++ b/v7/src/star-parser/shared.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: shared.scm,v 1.28 2005/06/04 03:41:50 cph Exp $
+$Id: shared.scm,v 1.29 2005/06/04 04:02:41 cph Exp $
 
 Copyright 2001,2002,2003,2005 Massachusetts Institute of Technology
 
@@ -808,11 +808,11 @@ USA.
 		 ,@(map peephole-optimize (cddr expression))))
 	     ((LET)
 	      `(LET ,(cadr expression)
-		 ,@(map (lambda (binding)
-			  `(,(car binding)
-			    ,(peephole-optimize (cadr binding))))
-			(caddr expression))
-		 ,@(map peephole-optimize (cdddr expression))))
+		 ,(map (lambda (binding)
+			 `(,(car binding)
+			   ,(peephole-optimize (cadr binding))))
+		       (caddr expression))
+		 ,(peephole-optimize (cadddr expression))))
 	     (else
 	      (map peephole-optimize expression))))
 	  (else expression))))