Remove pks.

game.scm

@@ -219,7 +219,6 @@
 
 (define (next-level!)
   (let ((idx (+ *level-idx* 1)))
-    (pk 'next-level idx)
     ;; TODO: Maybe show a little achievement popup when all gems
     ;; are collected?
     (when (with-goblins ($ (level-actor *level*) 'gem-collected?))
@@ -248,7 +247,6 @@
 
 ;; Auto-save/load to local storage.
 (define (save-game!)
-  (pk 'save)
   (local-storage-set! "cirkoban-save"
                       (call-with-output-string
                         (lambda (port)
@@ -263,7 +261,6 @@
       ((idx gems)
        (set! *level-idx* idx)
        (set! *gems* gems)
-       (pk 'load *level-idx*)
        (load-level! *level-idx*)
        (media-play audio:bg-music)))))
 
@@ -293,7 +290,7 @@
            (match events
              (() (values))
              ((event . rest)
-              (match (pk 'event event)
+              (match event
                 (('bump x y)
                  (play-sound-effect audio:bump))
                 (('push x y)
@@ -726,7 +723,6 @@
       (on-input-down 'confirm)))))
 
 (define (on-input-down input)
-  (pk 'input-down input)
   (match *state*
     ('play
      (match input
@@ -760,8 +756,7 @@
     (set-image-smoothing-enabled! context 0)
     (set! *canvas-scale* (exact->inexact scale))
     (set! *canvas-width* (* game-width *canvas-scale*))
-    (set! *canvas-height* (* game-height *canvas-scale*))
-    (pk 'resize-canvas *canvas-scale* *canvas-width* *canvas-height*)))
+    (set! *canvas-height* (* game-height *canvas-scale*))))
 
 (set-element-width! canvas (inexact->exact game-width))
 (set-element-height! canvas (inexact->exact game-height))