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

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

Browse Source
This commit is contained in:
Robby Findler 2012-01-07 15:02:55 -06:00
parent ca3584452e
commit 78ac4d3d27
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/drracket/private/debug.rkt
View File

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