[nongnu] elpa/geiser-chicken 42b18d5 045/102: Minor cleanup

[Philip Kaludercic]

branch: elpa/geiser-chicken
commit 42b18d5a9ccbbee41997447dd786c4266a884459
Author: Dan Leslie <dan@ironoxide.ca>
Commit: Dan Leslie <dan@ironoxide.ca>

    Minor cleanup
    
    Exposes geiser-load-paths, makes add-to-load-path and find-file
    'unsafe'. Those needn't be memoized and would be strange if they are.
    
    This should finish fixing jaor/geiser#114
---
 geiser/emacs.scm | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/geiser/emacs.scm b/geiser/emacs.scm
index 377c4d3..aca0e04 100644
--- a/geiser/emacs.scm
+++ b/geiser/emacs.scm
@@ -25,7 +25,8 @@
    geiser-module-location
    geiser-module-completions
    geiser-macroexpand
-   geiser-use-debug-log)
+   geiser-use-debug-log
+   geiser-load-paths)
 
   (import chicken scheme)
   (use
@@ -476,8 +477,8 @@
       (any (cut eq? (car form) <>)
           '(geiser-no-values geiser-newline geiser-completions
             geiser-autodoc geiser-object-signature geiser-symbol-location
-            geiser-symbol-documentation geiser-find-file 
geiser-add-to-load-path
-            geiser-module-exports geiser-module-path geiser-module-location
+            geiser-symbol-documentation geiser-module-exports
+            geiser-module-path geiser-module-location
             geiser-module-completions geiser-use-debug-log)))
     
     (define (form-has-any-geiser? form)
@@ -506,7 +507,7 @@
                              module))
           (thunk (lambda () (eval form))))
 
-      (write-to-log `[[REQUEST]])
+      (write-to-log `[[REQUEST host-module: ,host-module]])
       (write-to-log form)
 
       (if is-safe-geiser?
@@ -606,10 +607,10 @@
 ;; File and Buffer Operations
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 
-  (define geiser-load-paths (make-parameter '()))
+  (define geiser-load-paths (make-parameter '("" ".")))
 
   (define (geiser-find-file file . rest)
-    (let ((paths (append '("" ".") (geiser-load-paths))))
+    (let ((paths (geiser-load-paths)))
       (define (try-find file paths)
         (cond
          ((null? paths) #f)