[nongnu] elpa/geiser-racket 2130465 065/191: Racket: showing submodules in module help

[Philip Kaludercic]

branch: elpa/geiser-racket
commit 2130465f93e655c30880880bd4ef1ef93089263d
Author: Jose Antonio Ortega Ruiz <jao@gnu.org>
Commit: Jose Antonio Ortega Ruiz <jao@gnu.org>

    Racket: showing submodules in module help
---
 elisp/geiser-racket.el | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/elisp/geiser-racket.el b/elisp/geiser-racket.el
index ac2e1f6..616c3af 100644
--- a/elisp/geiser-racket.el
+++ b/elisp/geiser-racket.el
@@ -79,13 +79,14 @@ This executable is used by `run-gracket', and, if
 This function uses `geiser-racket-init-file' if it exists."
   (let ((init-file (and (stringp geiser-racket-init-file)
                         (expand-file-name geiser-racket-init-file)))
-        (binary (geiser-racket--real-binary)))
+        (binary (geiser-racket--real-binary))
+        (rackdir (expand-file-name "racket/" geiser-scheme-dir)))
     `("-i" "-q"
-      "-S" ,(expand-file-name "racket/" geiser-scheme-dir)
+      "-S" ,rackdir
       ,@(apply 'append (mapcar (lambda (p) (list "-S" p)) 
geiser-racket-collects))
       ,@(and (listp binary) (cdr binary))
       ,@(and init-file (file-readable-p init-file) (list "-f" init-file))
-      "-f" ,(expand-file-name "racket/geiser.rkt" geiser-scheme-dir))))
+      "-f" ,(expand-file-name "geiser/startup.rkt" rackdir))))
 
 (defconst geiser-racket--prompt-regexp "\\(mzscheme\\|racket\\)@[^ ]*?> ")