~ chicken-core (chicken-5) be2a356562ceb2c87f230e54b09fe0faa2132e97

commit be2a356562ceb2c87f230e54b09fe0faa2132e97
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Fri Nov 19 07:27:47 2010 -0500
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Fri Nov 19 07:27:47 2010 -0500

    updated scrutiny-tests

diff --git a/tests/scrutiny-tests.scm b/tests/scrutiny-tests.scm
index f3b872b3..636779c6 100644
--- a/tests/scrutiny-tests.scm
+++ b/tests/scrutiny-tests.scm
@@ -38,3 +38,6 @@
   (if x
       (values 42 43)
       (fail)))
+
+(define (foo x)
+  (if x 1))
diff --git a/tests/scrutiny.expected b/tests/scrutiny.expected
index cd3a5bc4..ccdc39c1 100644
--- a/tests/scrutiny.expected
+++ b/tests/scrutiny.expected
@@ -45,4 +45,9 @@ Warning: at toplevel:
 Warning: at toplevel:
   g89: in procedure call to `g89', expected a value of type `(procedure () *)', but were given a value of type `fixnum'
 
+Warning: in toplevel procedure `foo':
+  conditional in tail-position has branch with undefined result:
+
+(if x15 '1 (##core#undefined))
+
 Warning: redefinition of standard binding: car