fix level loading
This commit is contained in:
parent
e930629b76
commit
ed93ada41c
1 changed files with 2 additions and 1 deletions
|
@ -1,4 +1,5 @@
|
||||||
(define-module (game model level)
|
(define-module (game model level)
|
||||||
|
#:use-module (game util assets)
|
||||||
#:use-module (ice-9 match)
|
#:use-module (ice-9 match)
|
||||||
#:use-module (ice-9 pretty-print)
|
#:use-module (ice-9 pretty-print)
|
||||||
#:use-module (ice-9 textual-ports)
|
#:use-module (ice-9 textual-ports)
|
||||||
|
@ -69,7 +70,7 @@
|
||||||
(%make-level width height tiles #f #f entities)))
|
(%make-level width height tiles #f #f entities)))
|
||||||
|
|
||||||
(define (level-parse-file filename)
|
(define (level-parse-file filename)
|
||||||
(level-parse (call-with-input-file filename get-string-all)))
|
(level-parse (call-with-input-file (asset-file-name filename) get-string-all)))
|
||||||
|
|
||||||
|
|
||||||
(define (level-tile-at-row-col level row col )
|
(define (level-tile-at-row-col level row col )
|
||||||
|
|
Loading…
Reference in a new issue