Moving default value to parameter list
This commit is contained in:
parent
b29c13e0fc
commit
514c7db401
1 changed files with 2 additions and 2 deletions
4
game.scm
4
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! '()))
|
||||
|
|
Loading…
Add table
Reference in a new issue