From 03f75f2652bfc3d610a8f4952b75141e242470a3 Mon Sep 17 00:00:00 2001 From: Ricardo Wurmus Date: Fri, 27 Jul 2018 23:17:37 +0200 Subject: Use %assets-root in engine. --- engine/assets.scm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'engine/assets.scm') 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 +;;; Copyright © 2018 Ricardo Wurmus ;;; ;;; 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 ( 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 ) args) (next-method) -- cgit v1.2.3