summaryrefslogtreecommitdiff
path: root/elisp
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-10-29 22:51:19 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-10-29 22:51:19 +0200
commit13f8a9c96e791d9f3ea1b0b73e77d2497b5e95a9 (patch)
treebfb6e11b6abf4b1c5833e13e3c16f73aa281e2dd /elisp
parentc6add83b9dd772070e71a6ac2f61fdd948f8b52f (diff)
downloadgeiser-chez-13f8a9c96e791d9f3ea1b0b73e77d2497b5e95a9.tar.gz
geiser-chez-13f8a9c96e791d9f3ea1b0b73e77d2497b5e95a9.tar.bz2
Racket: ,enter meta-command instead of namespace clobbering
Diffstat (limited to 'elisp')
-rw-r--r--elisp/geiser-racket.el6
1 files changed, 3 insertions, 3 deletions
diff --git a/elisp/geiser-racket.el b/elisp/geiser-racket.el
index 28c576a..f38a4e9 100644
--- a/elisp/geiser-racket.el
+++ b/elisp/geiser-racket.el
@@ -132,9 +132,9 @@ This function uses `geiser-racket-init-file' if it exists."
(defun geiser-racket--enter-command (module)
(when (stringp module)
- (cond ((zerop (length module)) "(enter! #f)")
- ((file-name-absolute-p module) (format "(enter! (file %S))" module))
- (t (format "(enter! %s)" module)))))
+ (cond ((zerop (length module)) ",enter #f")
+ ((file-name-absolute-p module) (format ",enter (file %S)" module))
+ (t (format ",enter %s" module)))))
(defun geiser-racket--import-command (module)
(and (stringp module)