[nongnu] elpa/geiser-gauche 13e4030 015/119: Implement adding to load-path

[Philip Kaludercic]

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

    Implement adding to load-path
---
 geiser.scm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/geiser.scm b/geiser.scm
index a0639f2..780b2fb 100644
--- a/geiser.scm
+++ b/geiser.scm
@@ -10,13 +10,13 @@
    geiser:no-values
    geiser:completions
    geiser:module-completions
+   geiser:add-to-load-path
    ;; Missing functions:
    ;; geiser-start-server
    ;; geiser-object-signature
    ;; geiser-symbol-location
    ;; geiser-symbol-documentation
    ;; geiser-find-file
-   ;; geiser-add-to-load-path
    ;; geiser-compile-file
    ;; geiser-compile
    ;; geiser-module-path
@@ -79,3 +79,8 @@
    (map (^x (symbol->string (module-name x)))
        (all-modules))))
 
+;; Further
+
+;; TODO We add the load-path at the end. Is this correct?
+(define-macro (geiser:add-to-load-path dir)
+  `(add-load-path ,dir :after))