From c79acd6f61602edb0269fa30bc4ba9dc359ef2e0 Mon Sep 17 00:00:00 2001 From: Eli Barzilay Date: Sun, 25 Jan 2009 03:35:37 +0000 Subject: [PATCH] minor svn: r13276 --- collects/tests/eli-tester.ss | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/collects/tests/eli-tester.ss b/collects/tests/eli-tester.ss index c978e5a6c7..57639330db 100644 --- a/collects/tests/eli-tester.ss +++ b/collects/tests/eli-tester.ss @@ -39,7 +39,7 @@ #,(blame x "expected non-#f single value; got: ~a" #'(show x))))) (define (t2 x y) #`(let ([x (safe #,x)] [y (safe #,y)]) - (cond [(and (eq? 'error (car y)) (eq? 'values (car x))) + (cond [(and (eq? 'values (car x)) (eq? 'error (car y))) #,(blame x "expected an error; got ~a" #'(show x))] [(and (eq? 'error (car x)) (eq? 'error (car y))) (unless (regexp-match (regexp-quote (cadr y)) (cadr x))