From 305e3fc5df4100258dd7754a846fe2070229c9d6 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Wed, 22 Jul 2009 04:06:56 +0000 Subject: [PATCH] catching up with a change to collects/htdp/error.ss svn: r15525 --- collects/tests/mzscheme/htdp-image.ss | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/collects/tests/mzscheme/htdp-image.ss b/collects/tests/mzscheme/htdp-image.ss index 40a9e72886..e5fb94b5db 100644 --- a/collects/tests/mzscheme/htdp-image.ss +++ b/collects/tests/mzscheme/htdp-image.ss @@ -1232,7 +1232,7 @@ (define (tp-exn/num re) (lambda (exn) - (and (tp-exn? exn) + (and (exn:fail? exn) (regexp-match re (exn-message exn))))) ;; tests that the expression @@ -1246,7 +1246,7 @@ (syntax (err/rt-test (name . args) (lambda (exn) - (and (tp-exn? exn) + (and (exn:fail? exn) (let* ([msg (exn-message exn)] [beg (format "~a:" 'name)] [len (string-length beg)])