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

Support relative path requires in performance report.

Browse Source
This commit is contained in:
Vincent St-Amour 2012-02-17 18:21:06 -05:00
parent 1b054eed1b
commit c7234772a4
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/typed-racket/optimizer/tool/report.rkt
View File

@ -66,8 +66,13 @@
(define data (cdr (vector-ref l 2))) ; get the log-entry part (define data (cdr (vector-ref l 2))) ; get the log-entry part
(set! log (cons data log))) (set! log (cons data log)))
(lambda () (lambda ()
(parameterize ([current-namespace (make-base-namespace)] (parameterize
[read-accept-reader #t]) ([current-namespace (make-base-namespace)]
[current-load-relative-directory
(let-values ([(base name _)
(split-path (send this get-port-name))])
base)]
[read-accept-reader #t])
(void (expand (tr:read-syntax portname input)))))))) (void (expand (tr:read-syntax portname input))))))))
(filter right-file? (reverse log))) (filter right-file? (reverse log)))