branch: elpa/geiser-racket
commit a9405d020cd5263f55cc447a16e2d3291afef508
Author: Jose Antonio Ortega Ruiz <[email protected]>
Commit: Jose Antonio Ortega Ruiz <[email protected]>
Racket: reading into elisp-land the cache dir as needed
When no cache dir is set in the emacs customization, we ask Racket for
the one that it's using by default.
---
elisp/geiser-racket.el | 9 +++++----
1 file changed, 5 insertions(+), 4 deletions(-)
diff --git a/elisp/geiser-racket.el b/elisp/geiser-racket.el
index 0cb4663..e000645 100644
--- a/elisp/geiser-racket.el
+++ b/elisp/geiser-racket.el
@@ -99,10 +99,11 @@ This function uses `geiser-racket-init-file' if it exists."
(defconst geiser-racket--prompt-regexp "\\(mzscheme\\|racket\\)@[^ ]*?> ")
(defun geiser-racket--startup (remote)
- (when geiser-racket-image-cache-directory
- (geiser-eval--send/wait
- (format ",set-image-cache %S\n'done"
- geiser-racket-image-cache-directory))))
+ (if geiser-racket-image-cache-directory
+ (geiser-eval--send/wait (format ",set-image-cache %S\n'done"
+ geiser-racket-image-cache-directory))
+ (setq geiser-racket-image-cache-directory
+ (geiser-eval--send/result '(:eval (image-cache) geiser/user)))))
;;; Remote REPLs
