diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-11-21 16:12:41 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-11-21 16:12:41 +0100 |
| commit | f531c3e0f5afda77ada497d3932ea10502e22bdb (patch) | |
| tree | 72194f6eef587e6f99f45f81ec168b561056233b /elisp | |
| parent | de6b4addba49abbb43f07c8e153356308bcd8709 (diff) | |
| download | geiser-guile-f531c3e0f5afda77ada497d3932ea10502e22bdb.tar.gz geiser-guile-f531c3e0f5afda77ada497d3932ea10502e22bdb.tar.bz2 | |
Racket: showing submodules in module help
Diffstat (limited to 'elisp')
| -rw-r--r-- | elisp/geiser-racket.el | 7 |
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\\)@[^ ]*?> ") |