whiteline/kekkonen
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

prompt

Browse Source
This commit is contained in:
Victor Fors 2020-10-08 22:13:39 +02:00
parent 6bd256f87a
commit 8ea1c84e3e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
kekkonen.scm
View File

@ -317,7 +317,7 @@
(show "Done."))))) (show "Done.")))))
(define (do-command-load) (define (do-command-load)
(let ((save-name (prompt "Enter save file name to load: "))) (let ((save-name (prompt-default "Enter save file name to load: " "kekkonen.sav")))
(if (not (file-exists? save-name)) (if (not (file-exists? save-name))
(show "That file does not exist.") (show "That file does not exist.")
(begin (begin