From 75652ae2edff66305fb59df9b5247094328b6ff3 Mon Sep 17 00:00:00 2001 From: Stephen Adams Date: Mon, 27 Feb 1995 22:40:58 +0000 Subject: [PATCH] Fixed use of wrong variable. --- v8/src/compiler/midend/utils.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) 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))))) -- 2.25.1