12 lines
187 B
Scheme
12 lines
187 B
Scheme
|
(define-module (game util assets)
|
||
|
|
#:export (asset-file-name)
|
||
|
|
)
|
||
|
|
|
||
|
|
|
||
|
|
(define prefix (or (getenv "ASSET_DIR") "." ))
|
||
|
|
|
||
|
|
|
||
|
|
(define (asset-file-name name)
|
||
|
|
(string-append prefix "/" name)
|
||
|
|
)
|