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
commit04e8eedba2e674b1faf368a5518e7e2e51971510 (patch)
tree262897222e11b2c912f6d64b3b50ef529e1ad304
parentc4bcaf2e939357c94b0bb7bc48c53abea7049e0a (diff)
downloadgeiser-04e8eedba2e674b1faf368a5518e7e2e51971510.tar.gz
geiser-04e8eedba2e674b1faf368a5518e7e2e51971510.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)))