From c41fb5abfeb7ff0d8067b662f7c871a5b0bb9a46 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sun, 26 May 2024 19:49:11 -0400
Subject: [PATCH] Remove pks.

---
 game.scm                | 9 ++-------
 modules/game/actors.scm | 1 -
 scripts/compile-map.scm | 4 ++--
 3 files changed, 4 insertions(+), 10 deletions(-)

diff --git a/game.scm b/game.scm
index d78f1e7..d284eff 100644
--- a/game.scm
+++ b/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))
diff --git a/modules/game/actors.scm b/modules/game/actors.scm
index 9798e04..2289a6e 100644
--- a/modules/game/actors.scm
+++ b/modules/game/actors.scm
@@ -910,7 +910,6 @@
                   (match prev-pos
                     (#(prev-x prev-y _)
                      (let ((offset (vector (- x prev-x) (- y prev-y))))
-                       (pk 'collision! ($ obj 'type) ($ other 'type))
                        ($ other 'collide obj offset grid-info)
                        ($ obj 'collide other offset grid-info)
                        ;; If collision resolution displaced the other
diff --git a/scripts/compile-map.scm b/scripts/compile-map.scm
index ec33dd1..5ea2dcf 100644
--- a/scripts/compile-map.scm
+++ b/scripts/compile-map.scm
@@ -668,7 +668,7 @@ the default ORIENTATION value of 'orthogonal' is supported."
                                ,(compile-tile-layer tile-map "background")
                                ,(u8-list->bytevector
                                  (append
-                                  (pk 'tmap (compile-environment-layer tile-map "background"))
-                                  (pk 'ol (compile-object-layer tile-map "objects"))))
+                                  (compile-environment-layer tile-map "background")
+                                  (compile-object-layer tile-map "objects")))
                                collected-gem?))))))
   (_ (error "file name expected")))