From 6c5ceb7ce8f194a7d0e542a3bae268e0506fdd71 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. --- elisp/geiser-racket.el | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) (limited to 'elisp') 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 -- cgit v1.2.3