From 33d343dd6f55dd7c75bb843beeef0c7c7f4ee282 Mon Sep 17 00:00:00 2001
From: Vincent St-Amour <stamourv@racket-lang.org>
Date: Fri, 3 Jun 2011 16:31:05 -0400
Subject: [PATCH] Sort irritants by source location.

original commit: 6de90b71853d6b8b82e9f6a161fc3846d1f94cf3
---
 collects/typed-scheme/optimizer/logging.rkt | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/collects/typed-scheme/optimizer/logging.rkt b/collects/typed-scheme/optimizer/logging.rkt
index d39748df..a8fa30c6 100644
--- a/collects/typed-scheme/optimizer/logging.rkt
+++ b/collects/typed-scheme/optimizer/logging.rkt
@@ -111,6 +111,8 @@
                         (format "~a ~a"
                                 (line+col->string irritant)
                                 (syntax->datum irritant)))
-                      irritants)
+                      (sort irritants <
+                            #:key (lambda (x)
+                                    (or (syntax-position x) 0))))
                  ", "))
         kind)))