From 6de90b71853d6b8b82e9f6a161fc3846d1f94cf3 Mon Sep 17 00:00:00 2001 From: Vincent St-Amour Date: Fri, 3 Jun 2011 16:31:05 -0400 Subject: [PATCH] Sort irritants by source location. --- 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 d39748dfb8..a8fa30c641 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)))