Moving default value to parameter list

2024-12-20 10:21:10 -05:00 · 2024-12-20 10:21:10 -05:00 · 514c7db401
commit 514c7db401
parent b29c13e0fc
1 changed files with 2 additions and 2 deletions
--- a/game.scm
+++ b/game.scm
@ -359,9 +359,9 @@
  (set-menu-state-history! *menu* history))

 ;; Menu commands
-(define* (show-menu! #:optional menu)
+(define* (show-menu! #:optional (menu menu:main))
  (push-game-state! 'menu)
-  (set-menu! (or menu menu:main))
+  (set-menu! menu)
  (set-menu-index! -1)
  (set-menu-page! 0)
  (set-menu-history! '()))