diff options
Diffstat (limited to 'examples/mines/mines.scm')
| -rw-r--r-- | examples/mines/mines.scm | 13 |
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) |