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

Reformat message.

Browse Source
This commit is contained in:
Vincent St-Amour 2011-07-12 16:35:00 -04:00
parent e59a84dc96
commit ec1dedffbb
1 changed files with 3 additions and 5 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

@ -7,7 +7,7 @@
(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:~a: ~a~a" (format "~a:~a: ~a\n~a"
(syntax-line stx) (syntax-line stx)
(syntax-column stx) (syntax-column stx)
(pretty-format/write (syntax->datum stx)) (pretty-format/write (syntax->datum stx))
@ -21,11 +21,9 @@
[width 500] [width 500]
[height 300])) [height 300]))
(define editor-canvas (define editor-canvas
(new editor-canvas% [parent win] [editor text] (new editor-canvas% [parent win] [editor text] [style '(no-hscroll)]))
[style '(no-hscroll)]))
(send text auto-wrap #t) (send text auto-wrap #t)
(send text insert-port (open-input-string (send text insert-port (open-input-string (format-message stxs+msgs)))
(format-message stxs+msgs)))
(send text lock #t) (send text lock #t)
(send win show #t)) (send win show #t))