From: Joe Marshall <jmarshall@alum.mit.edu>
Date: Wed, 10 Mar 2010 21:19:20 +0000 (-0800)
Subject: Fix typos in open-block analyzers.
X-Git-Tag: 20100708-Gtk~110
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=c31918ea40fd232f8127e0f0076680d662bbc033;p=mit-scheme.git

Fix typos in open-block analyzers.
---

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)