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

Fix display of code in popup.

Browse Source
This commit is contained in:
Vincent St-Amour 2011-07-06 11:33:44 -04:00
parent e736653413
commit 4e0b1bfa3c
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/typed-scheme/optimizer/tool/display.rkt
View File

@ -1,14 +1,16 @@
#lang racket/base #lang racket/base
(require racket/string racket/pretty racket/class racket/gui/base (require racket/string unstable/pretty racket/class racket/gui/base
unstable/sequence) unstable/sequence)
(provide format-message make-color-table) (provide format-message make-color-table)
(define (format-message stxs+msgs) (define (format-message stxs+msgs)
(string-join (for/list ([(stx msg) (in-pairs stxs+msgs)]) (string-join (for/list ([(stx msg) (in-pairs stxs+msgs)])
(format "~a\n~a" (format "~a:~a: ~a~a"
(pretty-format (syntax->datum stx)) (syntax-line stx)
(syntax-column stx)
(pretty-format/write (syntax->datum stx))
msg)) msg))
"\n\n")) "\n\n"))