mes: (mes boot-6): Ignore .mes files in Guile module import.

* mes/module/mes/boot-6.mes (%search-load-path): Do not use (and prefer) ".mes".
This commit is contained in:
Jan (janneke) Nieuwenhuizen 2021-05-16 13:39:36 +02:00
parent 15fe2973a0
commit ab7351af92
No known key found for this signature in database
GPG Key ID: F3C1A0D9C1D65273
1 changed files with 1 additions and 2 deletions

View File

@ -507,8 +507,7 @@
(define (%search-load-path file-name)
(when (> %debug 2)
(format (current-error-port) "%search-load-path ~s\n" file-name))
(let ((file (or (search-path %load-path (string-append file-name ".mes"))
(search-path %load-path (string-append file-name ".scm")))))
(let ((file (search-path %load-path (string-append file-name ".scm"))))
(when (> %debug 1)
(format (current-error-port) " *file-name => ~s\n" file))
file))