diff options
Diffstat (limited to 'compile-map.scm')
| -rw-r--r-- | compile-map.scm | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/compile-map.scm b/compile-map.scm index 486145f..fef30a0 100644 --- a/compile-map.scm +++ b/compile-map.scm @@ -559,8 +559,12 @@ the default ORIENTATION value of 'orthogonal' is supported." (iota (tile-map-height tile-map)))))) (pretty-print - `(make-level - ,(tile-map-height tile-map) - ,(compile-tile-layer (tile-map-layer-ref tile-map "foreground")) - ,(compile-collision-layer (tile-map-layer-ref tile-map "collision")) - ,(compile-object-layer (tile-map-layer-ref tile-map "objects")))) + `(library (strigoform level-1) + (export load-level-1) + (import (scheme base) + (strigoform level)) + (define (load-level-1) + (make-level ,(tile-map-height tile-map) + ,(compile-tile-layer (tile-map-layer-ref tile-map "foreground")) + ,(compile-collision-layer (tile-map-layer-ref tile-map "collision")) + ,(compile-object-layer (tile-map-layer-ref tile-map "objects")))))) |