artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

mes: Consider GUILE_LOAD_PATH for include-from-path.

Browse source 
* module/mes/guile.scm (include-from-path): New macro.
This commit is contained in:
Jan Nieuwenhuizen 2017-05-07 08:23:20 +02:00
parent df878c59d9
commit ec935e5667
1 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
module/mes/guile.mes
View file

@ -26,6 +26,14 @@
(define-macro (use-modules . rest) #t) (define-macro (use-modules . rest) #t)
(define-macro (cond-expand-provide . rest) #t) (define-macro (cond-expand-provide . rest) #t)
(define-macro (include-from-path file)
(let loop ((path (cons %moduledir (string-split (or (getenv "GUILE_LOAD_PATH") "") #\:))))
(if (getenv "MES_DEBUG") (format (current-error-port) "include-from-path: ~s [PATH:~s]\n" file path))
(if (null? path) (error "include-from-path: not found: " file)
(let ((file (string-append (car path) "/" file)))
(if (access? file R_OK) `(load ,file)
(loop (cdr path)))))))
(mes-use-module (srfi srfi-16)) (mes-use-module (srfi srfi-16))
(define (drain-input port) (define (drain-input port)