drscheme's error print handler now respects error-print-source-location
svn: r15842
This commit is contained in:
parent
e0bd8a6cf0
commit
c93d1d8ad1
|
@ -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
|
||||
|
|
|
@ -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")
|
||||
|
|
Loading…
Reference in New Issue
Block a user