diff options
Diffstat (limited to 'examples/2048')
| -rwxr-xr-x | examples/2048/2048.scm (renamed from examples/2048/2048) | 13 |
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: |