word: Use sort with 'scandir' on Mes.

* gash/word.scm [mes]: Monkey patch 'scandir' to add sorting.

gash/word.scm

@@ -37,6 +37,16 @@
 ;;;
 ;;; 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)
   "Normalize @var{word} (which may be a word or a qword) so that it is
 guaranteed to be a list."