From 1f22800d517812c20d81a05e9403a8aa4759fbeb Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Mon, 3 Jun 2013 08:38:49 -0500 Subject: [PATCH] fix bug introduced in 6b2a4ff5 --- collects/syntax/readerr.rkt | 1 + collects/tests/syntax/test-readerr.rkt | 9 +++++++++ 2 files changed, 10 insertions(+) create mode 100644 collects/tests/syntax/test-readerr.rkt diff --git a/collects/syntax/readerr.rkt b/collects/syntax/readerr.rkt index 6885d393c0..4dfa716187 100644 --- a/collects/syntax/readerr.rkt +++ b/collects/syntax/readerr.rkt @@ -30,6 +30,7 @@ (format "~a~a" (cond [(not (error-print-source-location)) ""] [(srcloc->string (srcloc source-name line col pos span)) + => (lambda (s) (format "~a: " s))] [else ""]) diff --git a/collects/tests/syntax/test-readerr.rkt b/collects/tests/syntax/test-readerr.rkt new file mode 100644 index 0000000000..53af996a99 --- /dev/null +++ b/collects/tests/syntax/test-readerr.rkt @@ -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)))