examples: Update 2048.

* examples/2048/2048: Delete.
* examples/2048/2048.scm: New file.
* examples/Makefile.am (examples_DATA): Add new file.  Remove old one.

1 files changed, 4 insertions, 9 deletions

diff --git a/examples/2048/2048 b/examples/2048/2048.scm
index 8d0c134..73cb5f6 100755
--- a/examples/2048/2048
+++ b/examples/2048/2048.scm
@@ -1,6 +1,3 @@
-#! /usr/bin/env guile
-!#
-
 ;;; 2048
 ;;; Copyright (C) 2014 David Thompson <dthompson2@worcester.edu>
 ;;; Copyright (C) 2014 Jordan Russell <jordan.likes.curry@gmail.com>
@@ -439,11 +436,9 @@
                        #:viewport (make-viewport (make-rect 0 0 640 480)
                                                  #:clear-color background)))
 
-(define draw-2048
-  (let ((context (make-render-context)))
-    (lambda (dt alpha)
-      (signal-let ((scene 2048-scene))
-        (draw-group scene camera context)))))
+(define (draw-2048 dt alpha)
+  (signal-let ((scene 2048-scene))
+    (draw-group scene camera)))
 
 ;;;
 ;;; Initialization
@@ -458,5 +453,5 @@
   (start-game-loop))
 
 ;;; Local Variables:
-;;; compile-command: "../../pre-inst-env guile 2048"
+;;; compile-command: "../../pre-inst-env guile 2048.scm"
 ;;; End: