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