diff options
| -rwxr-xr-x | examples/2048/2048.scm (renamed from examples/2048/2048) | 13 | ||||
| -rw-r--r-- | examples/Makefile.am | 2 |
2 files changed, 5 insertions, 10 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: diff --git a/examples/Makefile.am b/examples/Makefile.am index 0ad17ff..46c9106 100644 --- a/examples/Makefile.am +++ b/examples/Makefile.am @@ -23,7 +23,7 @@ examples_DATA = \ joystick.scm \ simple.scm \ tilemap.scm \ - 2048/2048 \ + 2048/2048.scm \ mines/mines.scm imagedir = $(pkgdatadir)/examples/images |