From c31918ea40fd232f8127e0f0076680d662bbc033 Mon Sep 17 00:00:00 2001 From: Joe Marshall Date: Wed, 10 Mar 2010 13:19:20 -0800 Subject: [PATCH] Fix typos in open-block analyzers. --- src/sf/analyze.scm | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/src/sf/analyze.scm b/src/sf/analyze.scm index c25a08045..4595af699 100644 --- a/src/sf/analyze.scm +++ b/src/sf/analyze.scm @@ -83,7 +83,7 @@ USA. (define-method/always-false? 'OPEN-BLOCK (lambda (expression) (expression/always-false? - (open-block/actions expression)))) + (last (open-block/actions expression))))) ;; A closure is not a false value. (define-method/always-false? 'PROCEDURE false-procedure) @@ -150,7 +150,8 @@ USA. (define-method/boolean? 'OPEN-BLOCK (lambda (expression) - (expression/boolean? (open-block/actions expression)))) + (expression/boolean? + (last (open-block/actions expression))))) (define-method/boolean? 'PROCEDURE false-procedure) @@ -598,7 +599,8 @@ USA. (define-method/never-false? 'OPEN-BLOCK (lambda (expression) - (expression/never-false? (open-block/actions expression)))) + (expression/never-false? + (last (open-block/actions expression))))) (define-method/never-false? 'PROCEDURE true-procedure) -- 2.25.1