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

fix bug introduced in 6b2a4ff5

Browse Source
This commit is contained in:
Robby Findler 2013-06-03 08:38:49 -05:00
parent 54b45607a2
commit 1f22800d51
2 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
collects/syntax/readerr.rkt
View File

@ -30,6 +30,7 @@
(format "~a~a" (format "~a~a"
(cond [(not (error-print-source-location)) ""] (cond [(not (error-print-source-location)) ""]
[(srcloc->string (srcloc source-name line col pos span)) [(srcloc->string (srcloc source-name line col pos span))
=>
(lambda (s) (lambda (s)
(format "~a: " s))] (format "~a: " s))]
[else ""]) [else ""])

9
collects/tests/syntax/test-readerr.rkt Normal file
View File

@ -0,0 +1,9 @@
#lang racket/base
(require rackunit syntax/readerr)
(check-exn
(λ (x)
(and (exn:fail:read:eof? x)
(regexp-match #rx"^y[01: ]* x" (exn-message x))))
(λ () (raise-read-eof-error
"x" "y" 1 1 1 1)))