From c2d467c6e7539548366c14606569d181abdc1d4b Mon Sep 17 00:00:00 2001 From: David Thompson Date: Sun, 5 Apr 2015 21:17:35 -0400 Subject: examples: Use null-model. * examples/2048/2048.scm: Use null-model * examples/mines/mines.scm: Likewise. --- examples/mines/mines.scm | 13 +++++-------- 1 file changed, 5 insertions(+), 8 deletions(-) (limited to 'examples/mines/mines.scm') 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) -- cgit v1.2.3