From d68b5d0491e16f818ef0e342ea1fda02f9a9e468 Mon Sep 17 00:00:00 2001
From: David Thompson <dthompson2@worcester.edu>
Date: Thu, 23 May 2024 16:41:11 -0400
Subject: [PATCH] Speed up wipe effect.

Also, handle when user spams the undo key better.
---
 game.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/game.scm b/game.scm
index b14e01f..6b406fb 100644
--- a/game.scm
+++ b/game.scm
@@ -112,7 +112,8 @@
      (set! *actormap* snapshot)
      (set! *snapshots* older-snapshots)
      (play-sound-effect audio:undo)
-     (show-effect! (make-wipe-effect 0.25)))))
+     (unless *current-effect*
+       (show-effect! (make-wipe-effect 0.15))))))
 
 (define (sort lst compare)
   (match lst