# HG changeset patch
# User Eli Zaretskii <eliz@gnu.org>
# Date 1165669774 0
# Node ID 3fccc1870d622f3665e8a2c944c7a395377810ae
# Parent  0d1bb0d351cfddb6ce25fccf47b42428350b6923
(scheme-start-file): Use `let*', not `let'.

diff -r 0d1bb0d351cf -r 3fccc1870d62 lisp/cmuscheme.el
--- a/lisp/cmuscheme.el	Sat Dec 09 13:03:23 2006 +0000
+++ b/lisp/cmuscheme.el	Sat Dec 09 13:09:34 2006 +0000
@@ -269,9 +269,9 @@
   "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))))