[nongnu] elpa/geiser-racket a9405d0 095/191: Racket: reading into elisp-land the cache dir as needed

[Philip Kaludercic]

branch: elpa/geiser-racket
commit a9405d020cd5263f55cc447a16e2d3291afef508
Author: Jose Antonio Ortega Ruiz <jao@gnu.org>
Commit: Jose Antonio Ortega Ruiz <jao@gnu.org>

    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