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

Fix display of syntax.

Browse Source
This commit is contained in:
Vincent St-Amour 2011-07-14 14:23:22 -04:00
parent 218fdcceb4
commit 93e1e6d710
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/typed-scheme/optimizer/tool/display.rkt
View File

@ -1,7 +1,7 @@
#lang racket/base #lang racket/base
(require racket/string racket/class racket/gui/base racket/match racket/port (require racket/string racket/class racket/gui/base racket/match racket/port
framework framework syntax/to-string
"report.rkt" "report.rkt"
unstable/sequence unstable/pretty) unstable/sequence unstable/pretty)
@ -43,7 +43,7 @@
;; typeset the syntax as code ;; typeset the syntax as code
(send syntax-text change-style tt-style-delta) (send syntax-text change-style tt-style-delta)
(send syntax-text insert-port (send syntax-text insert-port
(open-input-string (format "~a" (syntax->datum stx)))) (open-input-string (syntax->string #`(#,stx)))) ; takes a list of stxs
;; circle irritants, if necessary ;; circle irritants, if necessary
(when (missed-opt-report-entry? s) (when (missed-opt-report-entry? s)
(for ([i (in-list (missed-opt-report-entry-irritants s))] (for ([i (in-list (missed-opt-report-entry-irritants s))]