@@ -383,7 +383,7 @@ If you are using REPL types, it will pickup the most appropriate
383
383
(`planck inf-clojure-load-form-planck)
384
384
(_ inf-clojure-load-form)))
385
385
386
- (defcustom inf-clojure-reload-form " (require '\" %s \" :reload)"
386
+ (defcustom inf-clojure-reload-form " (require '%s :reload)"
387
387
" Format-string for building a Clojure expression to reload a file.
388
388
Reload forces loading of all the identified libs even if they are
389
389
already loaded.
@@ -406,7 +406,7 @@ If you are using REPL types, it will pickup the most appropriate
406
406
(inf-clojure--set-repl-type proc)
407
407
inf-clojure-reload-form)
408
408
409
- (defcustom inf-clojure-reload-all-form " (require '\" %s \" :reload-all)"
409
+ (defcustom inf-clojure-reload-all-form " (require '%s :reload-all)"
410
410
" Format-string for building a Clojure expression to :reload-all a file.
411
411
Reload-all implies :reload and also forces loading of all libs
412
412
that the identified libs directly or indirectly load via require
@@ -768,12 +768,12 @@ The prefix argument ARG can change the behavior of the command:
768
768
- M-- C-u M-x `inf-clojure-reload' : reloads all AND prompts."
769
769
(interactive " P" )
770
770
(let* ((proc (inf-clojure-proc))
771
- (invertp (or (equal arg " - " ) (equal arg '(-4 ))))
772
- (promptp (or (equal arg '(4 )) (equal arg '(-4 ))))
773
- (ns (if promptp
771
+ (reload-all-p (or (equal arg '- ) (equal arg '(-4 ))))
772
+ (prompt-p (or (equal arg '(4 )) (equal arg '(-4 ))))
773
+ (ns (if prompt-p
774
774
(car (inf-clojure-symprompt " Namespace" (clojure-find-ns)))
775
775
(clojure-find-ns)))
776
- (form (if (not invertp )
776
+ (form (if (not reload-all-p )
777
777
(inf-clojure-reload-form proc)
778
778
(inf-clojure-reload-all-form proc))))
779
779
(inf-clojure--send-string proc (format form ns))))
0 commit comments