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

Use locate-stx earlier in the logging process, for nicer display in the tool.

Browse Source 
original commit: d3db388c05529e86363f43373d7ab779fd964935
This commit is contained in:
Vincent St-Amour 2011-07-01 12:11:04 -04:00
parent eb1f25d82e
commit 2b655af885
1 changed files with 7 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/typed-scheme/optimizer/logging.rkt
View File

@ -31,7 +31,8 @@
(define (log-optimization kind msg stx)
(let ([new-entry (opt-log-entry kind msg stx (syntax-position stx))])
(let* ([stx (locate-stx stx)]
[new-entry (opt-log-entry kind msg stx (syntax-position stx))])
(set! log-so-far (cons new-entry log-so-far))))
;;--------------------------------------------------------------------
@ -91,9 +92,10 @@
;; Attempts to merge the incoming missed optimization with existing ones.
;; Otherwise, adds the new one to the log.
(define (log-missed-optimization kind msg stx [irritants '()])
;; for convenience, if a single irritant is given, wrap it in a list
;; implicitly
(let* ([irritants (if (list? irritants) irritants (list irritants))]
(let* ([stx (locate-stx stx)]
;; for convenience, if a single irritant is given, wrap it in a list
;; implicitly
[irritants (if (list? irritants) irritants (list irritants))]
[new
(missed-opt-log-entry kind msg stx (syntax-position stx)
irritants '() 1)]
@ -184,7 +186,7 @@
;; For command-line printing purposes.
;; Not as user friendly as what's produced by the DrRacket tool.
(define (format-log-entry entry)
(define stx (locate-stx (log-entry-stx entry)))
(define stx (log-entry-stx entry))
(define msg
(format "~a ~a ~s -- ~a"
(syntax-source-file-name stx)