diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2012-08-25 06:10:05 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2012-08-25 06:20:33 +0200 |
| commit | 6c5ceb7ce8f194a7d0e542a3bae268e0506fdd71 (patch) | |
| tree | c08e36082a65978f268aa33f5203d16b9aae2847 /elisp/geiser-racket.el | |
| parent | 9b31ffba524337003c00a62997a27a62a270100e (diff) | |
| download | geiser-guile-6c5ceb7ce8f194a7d0e542a3bae268e0506fdd71.tar.gz geiser-guile-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/geiser-racket.el')
| -rw-r--r-- | elisp/geiser-racket.el | 9 |
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 |