From f531c3e0f5afda77ada497d3932ea10502e22bdb Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Sun, 21 Nov 2010 16:12:41 +0100 Subject: Racket: showing submodules in module help --- elisp/geiser-racket.el | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) (limited to 'elisp/geiser-racket.el') 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\\)@[^ ]*?> ") -- cgit v1.2.3