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

fix rendering of multi-line syntax errors

Browse Source
This commit is contained in:
Ryan Culpepper 2015-07-28 17:58:31 -04:00
parent 49dc0625d4
commit 6bbcbfb3d4
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
pkgs/racket-doc/syntax/scribblings/parse/parse-common.rkt
View File

@ -14,7 +14,10 @@
(let ([src (ormap values (exn:fail:syntax-exprs exn))])
(if src
(make-exn:fail:syntax
(format "~a at: ~s" (exn-message exn) (syntax->datum src))
(let* ([msg (exn-message exn)]
[oneline? (not (regexp-match? #rx"\n" msg))])
(format "~a~a at: ~s"
msg (if oneline? "" "\n ") (syntax->datum src)))
(exn-continuation-marks exn)
(exn:fail:syntax-exprs exn))
exn)))