diff options
| -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) |