fix level loading

This commit is contained in:
Peter Tillemans 2024-05-23 10:14:31 +02:00
parent e930629b76
commit ed93ada41c

View file

@ -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 )