summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-05-11 02:07:40 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-05-11 02:07:40 +0200
commit4525bffdc526709eb94d42051353d1cf6d383b82 (patch)
treef0e201a8c1d35d3ffcecfadef7267f53595378db
parent2696effa0a69fbba33142f2842e4e2523e485109 (diff)
downloadgeiser-chez-4525bffdc526709eb94d42051353d1cf6d383b82.tar.gz
geiser-chez-4525bffdc526709eb94d42051353d1cf6d383b82.tar.bz2
PLT: fixes for module name parsing (C-cC-em works now).
-rw-r--r--elisp/geiser-plt.el9
1 files changed, 6 insertions, 3 deletions
diff --git a/elisp/geiser-plt.el b/elisp/geiser-plt.el
index 1b539f8..cfc0909 100644
--- a/elisp/geiser-plt.el
+++ b/elisp/geiser-plt.el
@@ -64,9 +64,9 @@ This function uses `geiser-plt-init-file' if it exists."
(expand-file-name geiser-plt-init-file))))
`("-i" "-q"
"-S" ,(expand-file-name "plt/" geiser-scheme-dir)
- "-f" ,(expand-file-name "plt/geiser.ss" geiser-scheme-dir)
,@(and (listp geiser-plt-binary) (cdr geiser-plt-binary))
- ,@(and init-file (file-readable-p init-file) (list "-f" init-file)))))
+ ,@(and init-file (file-readable-p init-file) (list "-f" init-file))
+ "-f" ,(expand-file-name "plt/geiser.ss" geiser-scheme-dir))))
(defconst geiser-plt-prompt-regexp "^mzscheme@([^)]*?)> ")
@@ -99,7 +99,10 @@ This function uses `geiser-plt-init-file' if it exists."
(defun geiser-plt-get-module (&optional module)
(cond ((and (null module) (geiser-plt--explicit-module)))
((null module) (buffer-file-name))
- (t module)))
+ ((symbolp module) (list 'quote module))
+ ((and (stringp module) (file-name-absolute-p module)) module)
+ ((stringp module) (list 'quote (intern module)))
+ (t nil)))
(defun geiser-plt-symbol-begin (module)
(save-excursion (skip-syntax-backward "^-()>") (point)))