From c066364b7267f385cdd90a620a6d8a18d81dde8e Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Sat, 25 May 2024 10:31:50 -0400
Subject: [PATCH] Fix error when block cannot be pushed.

---
 modules/game/actors.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/modules/game/actors.scm b/modules/game/actors.scm
index ba06c40..cb8d061 100644
--- a/modules/game/actors.scm
+++ b/modules/game/actors.scm
@@ -163,8 +163,8 @@
                      (match ($ obj 'type)
                        ('switch (do-push))
                        ('gate (when ($ obj 'open?) (do-push)))
-                       (_ (values))))
-                    (_ (values))))))))))))
+                       (_ #f)))
+                    (_ #f)))))))))))
     (('pushed?) ($ pushed?))))
 
 (define (^clock-emitter bcom x y interval)