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

Switch to using get-port-name.

Browse Source
This commit is contained in:
Vincent St-Amour 2011-06-22 19:25:16 -04:00
parent 27f3eb3870
commit c598ae2048
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/typed-scheme/optimizer/tool/tool.rkt
View File

@ -26,7 +26,7 @@
;; performance-report-callback : drracket:unit:frame<%> -> void ;; performance-report-callback : drracket:unit:frame<%> -> void
(define (performance-report-callback drr-frame) (define (performance-report-callback drr-frame)
(define defs (send drr-frame get-definitions-text)) ; : text% (define defs (send drr-frame get-definitions-text)) ; : text%
(define portname (send defs get-filename)) (define portname (send defs get-port-name))
(message-box (message-box
"Performance Report" "Performance Report"
(with-output-to-string (with-output-to-string