diff options
| author | David Thompson <dthompson2@worcester.edu> | 2015-04-05 21:17:35 -0400 |
|---|---|---|
| committer | David Thompson <dthompson2@worcester.edu> | 2015-04-05 21:17:35 -0400 |
| commit | c2d467c6e7539548366c14606569d181abdc1d4b (patch) | |
| tree | 64a487a4a9d718a26705128e9d33b07a74b30788 /examples/mines | |
| parent | 3f8a886eee2de1cc40c36c360c89b0907992e751 (diff) | |
examples: Use null-model.
* examples/2048/2048.scm: Use null-model
* examples/mines/mines.scm: Likewise.
Diffstat (limited to 'examples/mines')
| -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) |