Sort irritants by source location.
This commit is contained in:
parent
c5ca1422a2
commit
6de90b7185
|
@ -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)))
|
||||||
|
|
Loading…
Reference in New Issue
Block a user