From 8a8daca7b14a992a3332068b24afd24b29379940 Mon Sep 17 00:00:00 2001
From: Vincent St-Amour <stamourv@racket-lang.org>
Date: Thu, 9 Feb 2012 14:47:53 -0500
Subject: [PATCH] Simplify TR log processing and move part of it to Performance
 Report.

More messages get logged, but if no-one is listening, doesn't matter.

original commit: e134e7cd388678273d9ec5dc092470a9ce0e7d5b
---
 collects/typed-racket/optimizer/logging.rkt | 21 +--------------------
 1 file changed, 1 insertion(+), 20 deletions(-)

diff --git a/collects/typed-racket/optimizer/logging.rkt b/collects/typed-racket/optimizer/logging.rkt
index af402e17..c45e2f5b 100644
--- a/collects/typed-racket/optimizer/logging.rkt
+++ b/collects/typed-racket/optimizer/logging.rkt
@@ -145,25 +145,6 @@
 
 ;;--------------------------------------------------------------------
 
-;; Sort log according to source location. Returns the sorted log.
-(define (sort-log)
-  (sort (remove-duplicates log-so-far)
-        (match-lambda*
-         [(list (log-entry kind-x msg-x stx-x loc-stx-x pos-x)
-                (log-entry kind-y msg-y stx-y loc-stx-y pos-y))
-          (cond [(not (or pos-x pos-y))
-                 ;; neither have location, sort by message
-                 (string<? msg-x msg-y)]
-                [(not pos-y) #f]
-                [(not pos-x) #t]
-                [else
-                 ;; both have location
-                 (cond [(= pos-x pos-y)
-                        ;; same location, sort by message
-                        (string<? msg-x msg-y)]
-                       ;; sort by source location
-                       [else (< pos-x pos-y)])])])))
-
 (define (line+col->string stx)
   (let ([line (syntax-line stx)]
         [col  (syntax-column stx)])
@@ -213,7 +194,7 @@
 (define (print-log)
   (define logger (current-logger))
   (add-missed-opts-to-log)
-  (for ([x (sort-log)])
+  (for ([x (in-list log-so-far)])
     (log-message logger 'debug
                  (format-log-entry x)
                  (cons optimization-log-key x))))