diff options
| author | Dan Leslie <dan@ironoxide.ca> | 2015-12-05 08:33:47 -0800 |
|---|---|---|
| committer | Dan Leslie <dan@ironoxide.ca> | 2015-12-05 08:33:47 -0800 |
| commit | c633fbb06cd9dae6001b629697326a3476e7f3ca (patch) | |
| tree | 7efd9e8e8422c73f9d37515d8cf254f7615eed83 | |
| parent | d4a2f79a611cfef41dce1a035d281c62a0d9d8bf (diff) | |
| download | geiser-guile-c633fbb06cd9dae6001b629697326a3476e7f3ca.tar.gz geiser-guile-c633fbb06cd9dae6001b629697326a3476e7f3ca.tar.bz2 | |
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
| -rw-r--r-- | scheme/chicken/geiser/emacs.scm | 13 |
1 files changed, 7 insertions, 6 deletions
diff --git a/scheme/chicken/geiser/emacs.scm b/scheme/chicken/geiser/emacs.scm index 377c4d3..aca0e04 100644 --- a/scheme/chicken/geiser/emacs.scm +++ b/scheme/chicken/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) |