Fix typos in open-block analyzers.

diff --git a/src/sf/analyze.scm b/src/sf/analyze.scm
index c25a08045acfa80e3653d336885a60f2fe508e86..4595af699d53f9ac65d738acf383efa878d29c00 100644 (file)
--- 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)