From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Mon, 27 Feb 1995 22:40:58 +0000 (+0000)
Subject: Fixed use of wrong variable.
X-Git-Tag: 20090517-FFI~6588
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=75652ae2edff66305fb59df9b5247094328b6ff3;p=mit-scheme.git

Fixed use of wrong variable.
---

diff --git a/v8/src/compiler/midend/utils.scm b/v8/src/compiler/midend/utils.scm
index 9ed62c15d..74a40740c 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.17 1995/02/22 13:37:04 adams Exp $
+$Id: utils.scm,v 1.18 1995/02/27 22:40:58 adams Exp $
 
 Copyright (c) 1994 Massachusetts Institute of Technology
 
@@ -526,7 +526,7 @@ Example use of FORM/COPY-TRANSFORMING:
 (define (begin-sans-declarations form)
   ;; If the begin form is a sequence of declarations followed by a single
   ;; form then return that form, else return #F
-  (let loop ((exprs (begin/actions form)))
+  (let loop ((exprs (begin/exprs 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)))))
@@ -546,7 +546,7 @@ Example use of FORM/COPY-TRANSFORMING:
 		   (operator/satisfies? (quote/text rator) operator-properties)
 		   (for-all? (call/cont-and-operands expr) walk))))
 	   ((BEGIN)
-	    (cond ((begin-sans-declarations form) => walk)
+	    (cond ((begin-sans-declarations expr) => walk)
 		  (else false)))
 	   (else false)))))