summaryrefslogtreecommitdiff
path: root/compile-map.scm
diff options
context:
space:
mode:
Diffstat (limited to 'compile-map.scm')
-rw-r--r--compile-map.scm4
1 files changed, 3 insertions, 1 deletions
diff --git a/compile-map.scm b/compile-map.scm
index 1270fc4..486145f 100644
--- a/compile-map.scm
+++ b/compile-map.scm
@@ -543,12 +543,14 @@ the default ORIENTATION value of 'orthogonal' is supported."
(th (tile-map-tile-height tile-map)))
(for-each (lambda (obj)
(let* ((type (map-object-type obj))
+ (properties (map-object-properties obj))
(r (map-object-shape obj))
(x (/ (rect-x r) tw))
(y (/ (rect-y r) th)))
;; (format (current-error-port) "obj: ~a ~a ~a ~a\n" (rect-x r) (rect-y r) x y)
(hashv-set! table y
- (cons `(make-level-object ,x (quote ,type))
+ (cons `(make-level-object ,x (quote ,type)
+ (quote ,properties))
(hashv-ref table y '())))))
(object-layer-objects layer))
`(vector