summaryrefslogtreecommitdiff
path: root/scheme/racket/geiser
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2012-08-25 06:10:05 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2012-08-25 06:10:05 +0200
commit52b7dbc9555f338dd529542e141f9938047db247 (patch)
tree4486f606a0de1d489b873b4724beb95859ac907e /scheme/racket/geiser
parent9b31ffba524337003c00a62997a27a62a270100e (diff)
downloadgeiser-chez-52b7dbc9555f338dd529542e141f9938047db247.tar.gz
geiser-chez-52b7dbc9555f338dd529542e141f9938047db247.tar.bz2
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.
Diffstat (limited to 'scheme/racket/geiser')
-rw-r--r--scheme/racket/geiser/user.rkt8
1 files changed, 5 insertions, 3 deletions
diff --git a/scheme/racket/geiser/user.rkt b/scheme/racket/geiser/user.rkt
index 5d3ab32..2eb0cb5 100644
--- a/scheme/racket/geiser/user.rkt
+++ b/scheme/racket/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)))