From 8ea1c84e3eb545b0f2d846aabce92f682544d756 Mon Sep 17 00:00:00 2001
From: Victor Fors <krakow89@gmail.com>
Date: Thu, 8 Oct 2020 22:13:39 +0200
Subject: [PATCH] prompt

---
 kekkonen.scm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/kekkonen.scm b/kekkonen.scm
index 9bccf18..fc21422 100644
--- a/kekkonen.scm
+++ b/kekkonen.scm
@@ -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