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

Fix typo.

Browse Source
This commit is contained in:
Vincent St-Amour 2012-02-09 13:58:19 -05:00
parent 6abb87069c
commit 8080669dd9
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/typed-racket/optimizer/logging.rkt
View File

@ -72,7 +72,7 @@
;; combine reporting of two missed optimizations, increasing badness in the ;; combine reporting of two missed optimizations, increasing badness in the
;; process ;; process
(define (combine-missed-optmizations parent child) (define (combine-missed-optimizations parent child)
(missed-opt-log-entry (missed-opt-log-entry
(log-entry-kind parent) ; same as child's (log-entry-kind parent) ; same as child's
(log-entry-msg parent) (log-entry-msg parent)
@ -123,13 +123,13 @@
;; we have been merged in the past, do nothing ;; we have been merged in the past, do nothing
missed-optimizations-log missed-optimizations-log
;; do the actual merge ;; do the actual merge
(cons (combine-missed-optmizations parent new) (cons (combine-missed-optimizations parent new)
(remove parent missed-optimizations-log)))] (remove parent missed-optimizations-log)))]
[(not (null? children)) [(not (null? children))
;; we found children, merge with them ;; we found children, merge with them
(let ([new (for/fold ([new new]) (let ([new (for/fold ([new new])
([child children]) ([child children])
(combine-missed-optmizations new child))]) (combine-missed-optimizations new child))])
(cons new (cons new
(filter (lambda (x) (not (member x children))) (filter (lambda (x) (not (member x children)))
missed-optimizations-log)))] missed-optimizations-log)))]