[nongnu] elpa/geiser-racket 2d5e638 078/191: Racket: ', enter "foo"' as a synonym of ', enter (file "foo")'

[Philip Kaludercic]

branch: elpa/geiser-racket
commit 2d5e6389cc3a6fd92d1229c4bb8ce01f8fc0890f
Author: Jose Antonio Ortega Ruiz <jao@gnu.org>
Commit: Jose Antonio Ortega Ruiz <jao@gnu.org>

    Racket: ',enter "foo"' as a synonym of ',enter (file "foo")'
---
 elisp/geiser-racket.el | 4 ++--
 1 file 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)