[nongnu] elpa/geiser-gauche 2e6dbc4 076/119: Aesthetic changes

[Philip Kaludercic]

branch: elpa/geiser-gauche
commit 2e6dbc413a4bdc81e8ebf132cce7dd789f0d977f
Author: András Simonyi <andras.simonyi@gmail.com>
Commit: András Simonyi <andras.simonyi@gmail.com>

    Aesthetic changes
---
 geiser-gauche.el | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/geiser-gauche.el b/geiser-gauche.el
index 6f0c6dd..fc1f7d9 100644
--- a/geiser-gauche.el
+++ b/geiser-gauche.el
@@ -72,6 +72,12 @@
   :group 'geiser-gauche)
 
 
+;;; Utils
+
+(defconst geiser-gauche--load-dir (f-dirname load-file-name)
+  "The dir from geicher-gauche  was loaded.")
+
+
 ;;; REPL support:
 
 (defun geiser-gauche--binary ()
@@ -82,7 +88,7 @@
 (defun geiser-gauche--parameters ()
   "Return a list with all parameters needed to start Gauche Scheme."
   `(,@geiser-gauche-extra-command-line-parameters
-    "-l" ,(expand-file-name "gauche/geiser.scm" geiser-scheme-dir)
+    "-l" ,(expand-file-name "geiser-gauche.scm" geiser-gauche--load-dir)
     ,@(and (listp geiser-gauche-binary) (cdr geiser-gauche-binary))))
 
 (defconst geiser-gauche--prompt-regexp "gosh\\(\\[[^(]+\\]\\)?> ")
@@ -154,11 +160,11 @@ form."
         (t :f)))
 
 (defun geiser-gauche--enter-command (module)
-  "Return a scheme expression to enter MODULE."
+  "Return a scheme expression string to enter MODULE."
   (format "(select-module %s)" module))
 
 (defun geiser-gauche--import-command (module)
-  "Return a scheme expression to import MODULE."
+  "Return a scheme expression string to import MODULE."
   (format "(import %s)" module))
 
 ;; Code taken from the Guile implementation.