From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Wed, 22 Feb 1995 13:37:04 +0000 (+0000)
Subject: Mismatched paren.
X-Git-Tag: 20090517-FFI~6605
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=39198b9ab487b91c872ba96811d4f28180aa7074;p=mit-scheme.git

Mismatched paren.
---

diff --git a/v8/src/compiler/midend/utils.scm b/v8/src/compiler/midend/utils.scm
index 947568472..9ed62c15d 100644
--- a/v8/src/compiler/midend/utils.scm
+++ b/v8/src/compiler/midend/utils.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: utils.scm,v 1.16 1995/02/22 05:50:15 adams Exp $
+$Id: utils.scm,v 1.17 1995/02/22 13:37:04 adams Exp $
 
 Copyright (c) 1994 Massachusetts Institute of Technology
 
@@ -529,7 +529,7 @@ Example use of FORM/COPY-TRANSFORMING:
   (let loop ((exprs (begin/actions form)))
     (cond ((null? exprs) (internal-error "No non-declare subform" form))
 	  ((DECLARE/? (car exprs)) (loop (cdr exprs)))
-	  (else (if (null? (cdr exprs) (car exprs) #F))))))
+	  (else (if (null? (cdr exprs)) (car exprs) #F)))))
 
 (define (form/satisfies? form operator-properties)
   (let walk ((expr form))