From 7774f98a119fd3d575400f01b444f68607cfef1b Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Sat, 4 Jun 2005 04:02:41 +0000 Subject: [PATCH] Fix typo in previous revision. --- v7/src/star-parser/shared.scm | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) 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)))) -- 2.25.1