From 036338faf0bd6b37ee579c525d1ece9ef23cbb2c Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Thu, 9 Feb 2012 13:58:19 -0500 Subject: [PATCH] Fix typo. original commit: 8080669dd93da572c6ef0933894d20d3ff8d2493 --- collects/typed-racket/optimizer/logging.rkt | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/collects/typed-racket/optimizer/logging.rkt b/collects/typed-racket/optimizer/logging.rkt index e8e7b29a..af402e17 100644 --- a/collects/typed-racket/optimizer/logging.rkt +++ b/collects/typed-racket/optimizer/logging.rkt @@ -72,7 +72,7 @@ ;; combine reporting of two missed optimizations, increasing badness in the ;; process -(define (combine-missed-optmizations parent child) +(define (combine-missed-optimizations parent child) (missed-opt-log-entry (log-entry-kind parent) ; same as child's (log-entry-msg parent) @@ -123,13 +123,13 @@ ;; we have been merged in the past, do nothing missed-optimizations-log ;; do the actual merge - (cons (combine-missed-optmizations parent new) + (cons (combine-missed-optimizations parent new) (remove parent missed-optimizations-log)))] [(not (null? children)) ;; we found children, merge with them (let ([new (for/fold ([new new]) ([child children]) - (combine-missed-optmizations new child))]) + (combine-missed-optimizations new child))]) (cons new (filter (lambda (x) (not (member x children))) missed-optimizations-log)))]