word: Use sort with 'scandir' on Mes.
* gash/word.scm [mes]: Monkey patch 'scandir' to add sorting.
This commit is contained in:
parent
6c67d7b23d
commit
4b1aa935de
|
@ -37,6 +37,16 @@
|
||||||
;;;
|
;;;
|
||||||
;;; Code:
|
;;; Code:
|
||||||
|
|
||||||
|
(cond-expand
|
||||||
|
(mes
|
||||||
|
;; We need to sort the results of 'scandir' when globbing, so we
|
||||||
|
;; monkey patch Mes' 'scandir' to do so.
|
||||||
|
(let ((core:scandir scandir))
|
||||||
|
(set! scandir
|
||||||
|
(lambda (name select?)
|
||||||
|
(sort (core:scandir name select?) string<)))))
|
||||||
|
(else))
|
||||||
|
|
||||||
(define (normalize-word word)
|
(define (normalize-word word)
|
||||||
"Normalize @var{word} (which may be a word or a qword) so that it is
|
"Normalize @var{word} (which may be a word or a qword) so that it is
|
||||||
guaranteed to be a list."
|
guaranteed to be a list."
|
||||||
|
|
Loading…
Reference in New Issue