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

fix check syntax's stdout so that it can handle specials

Browse Source 
related to PR 11854
  merge to release, please
This commit is contained in:
Robby Findler 2011-04-19 10:13:32 -05:00
parent 4fd6144e3d
commit 57b9bcfe38
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/drracket/private/syncheck/gui.rkt
View File

@ -1277,11 +1277,13 @@ If the namespace does not, they are colored the unbound color.
(cleanup)
(custodian-shutdown-all user-custodian)))))]
[error-port (send (send the-tab get-error-report-text) get-err-port)]
[output-port (send (send the-tab get-error-report-text) get-out-port)]
[init-proc
(λ () ; =user=
(send the-tab set-breakables (current-thread) (current-custodian))
(set-directory definitions-text)
(current-error-port error-port)
(current-output-port output-port)
(error-display-handler
(λ (msg exn) ;; =user=
(parameterize ([current-eventspace drs-eventspace])