summaryrefslogtreecommitdiff
path: root/examples/mines
diff options
context:
space:
mode:
Diffstat (limited to 'examples/mines')
-rw-r--r--examples/mines/mines.scm13
1 files changed, 5 insertions, 8 deletions
diff --git a/examples/mines/mines.scm b/examples/mines/mines.scm
index 126db24..ff18f39 100644
--- a/examples/mines/mines.scm
+++ b/examples/mines/mines.scm
@@ -348,14 +348,11 @@
(define draw-tile
(let ((offset (translate (vector2 (/ tile-size 2) (/ tile-size 2)))))
(lambda (tile)
- ;; A tile may or may not have an overlay, so we do a little
- ;; quasiquoting magic to build the right list.
- (list->model
- `(,(tile-base-sprite tile)
- ,@(let ((overlay (tile-overlay-sprite tile)))
- (if overlay
- (list (model-place offset overlay))
- '())))))))
+ (model-group (tile-base-sprite tile)
+ (let ((overlay (tile-overlay-sprite tile)))
+ (if overlay
+ (model-place offset overlay)
+ null-model))))))
(define-signal board-view
(signal-map (lambda (board)