diff options
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..e000645 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 (format ",set-image-cache %S\n'done" + geiser-racket-image-cache-directory)) + (setq geiser-racket-image-cache-directory + (geiser-eval--send/result '(:eval (image-cache) geiser/user))))) ;;; Remote REPLs |