7 lines
179 B
Scheme
7 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))
|