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

[Philip Kaludercic]

branch: elpa/geiser-racket
commit 19e0bd6b051de37d29344b348d336071e61bdf45
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.
---
 geiser/user.rkt | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/geiser/user.rkt b/geiser/user.rkt
index 5d3ab32..2eb0cb5 100644
--- a/geiser/user.rkt
+++ b/geiser/user.rkt
@@ -93,9 +93,11 @@
 
 (define image-cache
   (let ([ensure-dir (lambda (dir)
-                      (and (path-string? dir)
-                           (begin (make-directory* dir) dir)))])
-    (make-parameter #f ensure-dir)))
+                      (if (path-string? dir)
+                          (begin (make-directory* dir)
+                                 (if (path? dir) (path->string dir) dir))
+                          (path->string (find-system-path 'temp-dir))))])
+    (make-parameter (ensure-dir #f) ensure-dir)))
 
 (define (geiser-prompt-read prompt)
   (make-repl-reader (geiser-read prompt)))