From 52b7dbc9555f338dd529542e141f9938047db247 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Sat, 25 Aug 2012 06:10:05 +0200 Subject: 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. --- scheme/racket/geiser/user.rkt | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) (limited to 'scheme/racket/geiser/user.rkt') 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))) -- cgit v1.2.3