Sort irritants by source location.

This commit is contained in:
Vincent St-Amour 2011-06-03 16:31:05 -04:00
parent c5ca1422a2
commit 6de90b7185

View File

@ -111,6 +111,8 @@
(format "~a ~a" (format "~a ~a"
(line+col->string irritant) (line+col->string irritant)
(syntax->datum irritant))) (syntax->datum irritant)))
irritants) (sort irritants <
#:key (lambda (x)
(or (syntax-position x) 0))))
", ")) ", "))
kind))) kind)))