6 lines
179 B
Scheme
6 lines
179 B
Scheme
(define-module (util))
|
|
|
|
(define-public config-dir (or (dirname (current-filename)) (car %load-path)))
|
|
|
|
(define-public (host-dir host)
|
|
(string-append config-dir "/hosts/" host))
|