Commits

Christian Kellermann committed eb28516

enable scores again

Comments (0)

Files changed (1)

 (add-sprite! (make-sprite 'right (- width (/ paddle-width 2)) 0 paddle-width height))
 
 
-(define (count-down text delay)
+(define (count-down t delay)
   (for-each (lambda (t)
               (clear-screen)
               (text (/ width 2) (/ height 2) t align: #:center)
               (show!)
               (thread-sleep! delay)
               (clear-screen))
-            text))
+            t))
 
 (define (new-coords x y dir speed td)
   (let* ((step (* speed td))
                  (move-computer-player p2 dt)
                  (clear-screen)
                  (draw-field)
-;                 (show-score) XXX this should not segfault when enabled...
+                 (show-score) ;; XXX this should not segfault when enabled...
                  (run-animations dt)
                  (handle-collisions (check-for-collisions) dt)
                  (when (quit?)