summaryrefslogtreecommitdiff
path: root/elisp
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:20:33 +0200
commit6c5ceb7ce8f194a7d0e542a3bae268e0506fdd71 (patch)
treec08e36082a65978f268aa33f5203d16b9aae2847 /elisp
parent9b31ffba524337003c00a62997a27a62a270100e (diff)
downloadgeiser-chez-6c5ceb7ce8f194a7d0e542a3bae268e0506fdd71.tar.gz
geiser-chez-6c5ceb7ce8f194a7d0e542a3bae268e0506fdd71.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 'elisp')
-rw-r--r--elisp/geiser-racket.el9
1 files changed, 5 insertions, 4 deletions
diff --git a/elisp/geiser-racket.el b/elisp/geiser-racket.el
index 0cb4663..6a9847b 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
+ `(:eval (image-cache ,geiser-racket-image-cache-directory) geiser/user))
+ (setq geiser-racket-image-cache-directory
+ (geiser-eval--send/result '(:eval (image-cache) geiser/user)))))
;;; Remote REPLs