summaryrefslogtreecommitdiff
path: root/elisp/geiser-racket.el
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-11-21 16:12:41 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-11-21 16:12:41 +0100
commitf531c3e0f5afda77ada497d3932ea10502e22bdb (patch)
tree72194f6eef587e6f99f45f81ec168b561056233b /elisp/geiser-racket.el
parentde6b4addba49abbb43f07c8e153356308bcd8709 (diff)
downloadgeiser-guile-f531c3e0f5afda77ada497d3932ea10502e22bdb.tar.gz
geiser-guile-f531c3e0f5afda77ada497d3932ea10502e22bdb.tar.bz2
Racket: showing submodules in module help
Diffstat (limited to 'elisp/geiser-racket.el')
-rw-r--r--elisp/geiser-racket.el7
1 files 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\\)@[^ ]*?> ")