drscheme's error print handler now respects error-print-source-location

svn: r15842
This commit is contained in:
Robby Findler 2009-09-01 05:23:22 +00:00
parent e0bd8a6cf0
commit c93d1d8ad1
2 changed files with 4 additions and 2 deletions

View File

@ -294,7 +294,8 @@ profile todo:
(display-srclocs-in-error src-locs src-locs-edition)
(display msg (current-error-port))
(when (exn:fail:syntax? exn)
(show-syntax-error-context (current-error-port) exn))
(unless (error-print-source-location)
(show-syntax-error-context (current-error-port) exn)))
(newline (current-error-port))
(flush-output (current-error-port))
(when (and rep

View File

@ -1867,7 +1867,8 @@ TODO
(number? col))
(insert-file-name/icon src pos span line col))
(insert/delta text (format "~a" (exn-message exn)) error-delta)
(when (syntax? expr)
(when (and (error-print-source-location)
(syntax? expr))
(insert/delta text " in: ")
(insert/delta text (format "~s" (syntax->datum expr)) error-text-style-delta))
(insert/delta text "\n")