suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixing an annoyance with eli-tester when the error string contains ~

Browse Source
This commit is contained in:
Jay McCarthy 2010-09-16 09:12:42 -06:00
parent 940438e7c4
commit 4a89ccea5d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/tests/eli-tester.rkt
View File

@ -61,7 +61,7 @@
#'(let* ([form (failure-format)] #'(let* ([form (failure-format)]
[prefix (continuation-mark-set->list (current-continuation-marks) [prefix (continuation-mark-set->list (current-continuation-marks)
failure-prefix-mark)]) failure-prefix-mark)])
(error 'loc (form prefix 'e fmt arg ...))))) (error 'loc "~a" (form prefix 'e fmt arg ...)))))
(define (t1 x) (define (t1 x)
#`(let ([x (safe #,x)]) #`(let ([x (safe #,x)])
(unless (and (eq? 'values (car x)) (= 2 (length x)) (cadr x)) (unless (and (eq? 'values (car x)) (= 2 (length x)) (cadr x))