diff options
| author | Ricardo Wurmus <rekado@elephly.net> | 2018-07-27 23:17:37 +0200 |
|---|---|---|
| committer | Ricardo Wurmus <rekado@elephly.net> | 2018-07-27 23:17:37 +0200 |
| commit | 03f75f2652bfc3d610a8f4952b75141e242470a3 (patch) | |
| tree | 01004ce41fc915fab4a5fef199bec8933efb6417 | |
| parent | c74005d712fa022adfeb91681b2f75778e97e5a7 (diff) | |
Use %assets-root in engine.
| -rw-r--r-- | engine/assets.scm | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/engine/assets.scm b/engine/assets.scm index 73a9785..0426d98 100644 --- a/engine/assets.scm +++ b/engine/assets.scm @@ -1,5 +1,6 @@ -;;; Lisp Game Jam 2018 +;;; The Inevitable Game ;;; Copyright © 2018 David Thompson <davet@gnu.org> +;;; Copyright © 2018 Ricardo Wurmus <rekado@elephly.net> ;;; ;;; This program is free software: you can redistribute it and/or ;;; modify it under the terms of the GNU General Public License as @@ -21,6 +22,7 @@ #:use-module (engine inotify) #:use-module (oop goops) #:use-module (srfi srfi-1) + #:use-module (config) #:export (<asset> artifact file-name @@ -50,7 +52,7 @@ (define (absolute-file-name file-name) (if (absolute-file-name? file-name) file-name - (string-append (getcwd) "/" file-name))) + (string-append %assets-root "/" file-name))) (define-method (initialize (asset <asset>) args) (next-method) |