|
|
|
@@ -317,7 +317,7 @@ |
|
|
|
(show "Done."))))) |
|
|
|
|
|
|
|
(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)) |
|
|
|
(show "That file does not exist.") |
|
|
|
(begin |
|
|
|
|
