summaryrefslogtreecommitdiff
path: root/elisp/geiser-racket.el
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2011-01-09 22:40:11 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2011-01-09 22:53:27 +0100
commite1673221200c35bdacffebbcc26c2e562080a9fd (patch)
tree5c67f9fa4541b49090e9d95ddbe6a4d5068c27f8 /elisp/geiser-racket.el
parent8d8d07981ebb0d7c605ed4efa3e6fe16a4fd8894 (diff)
downloadgeiser-chez-e1673221200c35bdacffebbcc26c2e562080a9fd.tar.gz
geiser-chez-e1673221200c35bdacffebbcc26c2e562080a9fd.tar.bz2
Racket: ',enter "foo"' as a synonym of ',enter (file "foo")'
Diffstat (limited to 'elisp/geiser-racket.el')
-rw-r--r--elisp/geiser-racket.el4
1 files changed, 2 insertions, 2 deletions
diff --git a/elisp/geiser-racket.el b/elisp/geiser-racket.el
index 19301ce..df6128e 100644
--- a/elisp/geiser-racket.el
+++ b/elisp/geiser-racket.el
@@ -1,6 +1,6 @@
;; geiser-racket.el -- geiser support for Racket scheme
-;; Copyright (C) 2009, 2010 Jose Antonio Ortega Ruiz
+;; Copyright (C) 2009, 2010, 2011 Jose Antonio Ortega Ruiz
;; This program is free software; you can redistribute it and/or
;; modify it under the terms of the Modified BSD License. You should
@@ -106,7 +106,7 @@ 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))
+ ((file-name-absolute-p module) (format ",enter %S" module))
(t (format ",enter %s" module)))))
(defun geiser-racket--geiser-procedure (proc &rest args)