~ chicken-core (chicken-5) 62157e98221e74770099df5ca99ac4a19dd3026f

commit 62157e98221e74770099df5ca99ac4a19dd3026f
Author:     Evan Hanson <evhan@foldling.org>
AuthorDate: Wed Jan 1 07:38:11 2014 +1300
Commit:     Peter Bex <peter.bex@xs4all.nl>
CommitDate: Sun Jan 5 18:56:07 2014 +0100

    Fix invalid assertions in scrutiny-tests-2.scm
    
    This addresses #1063.
    
    Signed-off-by: Peter Bex <peter.bex@xs4all.nl>

diff --git a/tests/scrutiny-2.expected b/tests/scrutiny-2.expected
index 10cd844e..c6bcea95 100644
--- a/tests/scrutiny-2.expected
+++ b/tests/scrutiny-2.expected
@@ -1,7 +1,7 @@
 
 Note: at toplevel:
   (scrutiny-tests-2.scm:14) in procedure call to `pair?', the predicate is called with an argument of type
-  `(pair fixnum fixnum)' and will always return true
+  `pair' and will always return true
 
 Note: at toplevel:
   (scrutiny-tests-2.scm:14) in procedure call to `pair?', the predicate is called with an argument of type
diff --git a/tests/scrutiny-tests-2.scm b/tests/scrutiny-tests-2.scm
index 10dde750..292ab028 100644
--- a/tests/scrutiny-tests-2.scm
+++ b/tests/scrutiny-tests-2.scm
@@ -11,17 +11,17 @@
 
 ;;;
 
-(let ((p '(1 . 2))
-      (l (list))
-      (n '())
-      (i 123)
-      (f 12.3)
-      (u (+ i f)))
+(let* ((p '(1 . 2))
+       (l (list))
+       (n '())
+       (i 123)
+       (f 12.3)
+       (u (+ i f)))
   (predicate pair? (p) (l n i f))
-  (predicate list? (l n p) (i f))
+  (predicate list? (l n) (p i f))
   (predicate null? (n l) (p i f))
   (predicate fixnum? (i) (f u))
   (predicate exact? (i) (f u))
-  (predicate flonum? (f) (i u))
-  (predicate inexact? (f) (i u))
+  (predicate flonum? (f u) (i))
+  (predicate inexact? (f u) (i))
   (predicate number? (i f u) (n)))