>From 8ed28634af81b5bfa56d116bdebdd33aefc583b7 Mon Sep 17 00:00:00 2001 From: Evan Hanson Date: Wed, 1 Jan 2014 07:38:11 +1300 Subject: [PATCH] Fix invalid assertions in scrutiny-tests-2.scm This addresses #1063. --- tests/scrutiny-2.expected | 2 +- tests/scrutiny-tests-2.scm | 18 +++++++++--------- 2 files changed, 10 insertions(+), 10 deletions(-) diff --git a/tests/scrutiny-2.expected b/tests/scrutiny-2.expected index 10cd844..c6bcea9 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 10dde75..292ab02 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))) -- 1.7.10.4