(scheme-start-file): Use `let*', not `let'.

diff --git a/lisp/cmuscheme.el b/lisp/cmuscheme.el
index 3a0c73f040d663c1e1fe9eb6dc0513beb938e331..d2a7217a1dc14b1aa69e1fb014c38cf574b2094e 100644 (file)
--- a/lisp/cmuscheme.el
+++ b/lisp/cmuscheme.el
@@ -269,9 +269,9 @@ is run).
   "Return the name of the start file corresponding to PROG.
 Search in the directories \"~\" and \"~/.emacs.d\", in this
 order.  Return nil if no start file found."
-  (let ((progname (file-name-nondirectory prog))
-       (start-file (concat "~/.emacs_" progname))
-       (alt-start-file (concat "~/.emacs.d/init_" progname ".scm")))
+  (let* ((progname (file-name-nondirectory prog))
+        (start-file (concat "~/.emacs_" progname))
+        (alt-start-file (concat "~/.emacs.d/init_" progname ".scm")))
     (if (file-exists-p start-file)
         start-file
       (and (file-exists-p alt-start-file) alt-start-file))))