andrius
/
mes
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

boot-module.mes: prefer loading of .mes

This commit is contained in:
Jan Nieuwenhuizen 2019-11-17 00:18:24 +01:00 committed by Jan (janneke) Nieuwenhuizen
parent d80bb83328
commit ff32db89ab
No known key found for this signature in database
GPG Key ID: F3C1A0D9C1D65273
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
mes/module/mes/boot-module.scm
View File

@ -138,7 +138,8 @@
(when (getenv "MES_DEBUG")
(display "%search-load-path " (current-error-port))
(display file-name (current-error-port)))
(let ((file (search-path %load-path (string-append file-name ".scm"))))
(let ((file (or (search-path %load-path (string-append file-name ".mes"))
(search-path %load-path (string-append file-name ".scm")))))
(when (getenv "MES_DEBUG")
(display " => " (current-error-port))
(display file (current-error-port))
@ -519,7 +520,8 @@
(when (getenv "MES_DEBUG")
(display "%search-load-path " (current-error-port))
(display file-name (current-error-port)))
(let ((file (search-path %load-path (string-append file-name ".scm"))))
(let ((file (or (search-path %load-path (string-append file-name ".mes"))
(search-path %load-path (string-append file-name ".scm")))))
(when (getenv "MES_DEBUG")
(display " => " (current-error-port))
(display file (current-error-port))
@ -2749,7 +2751,9 @@
;;; boot-9.scm ends here
(display "===============================\n")
(define-module (guile-user) #:use-module (boo))
;;(define-module (guile-user) #:use-module (boo))
(define-module (guile-user)
#:use-module (boo))
(display "\nnow in guile-user\n")
(display "keil-user: ")