fix syntax error message display for new way that drracket's ports handle printing of snips

This commit is contained in:
Robby Findler 2012-01-07 15:02:55 -06:00
parent ca3584452e
commit 78ac4d3d27

View File

@ -521,8 +521,8 @@ profile todo:
(send-out (format "~s" (syntax->datum expr))
(λ (snp)
(send snp set-style
(send the-style-list find-or-create-style
(send snp get-style)
(send (editor:get-standard-style-list) find-or-create-style
(send (editor:get-standard-style-list) find-named-style "Standard")
error-text-style-delta)))))]
[exprs (exn:fail:syntax-exprs exn)])
(cond