make compatible with init

This commit is contained in:
Michiel Borkent 2022-07-29 13:09:00 +02:00
parent 05d105716a
commit e8ca180529

View file

@ -458,9 +458,10 @@
(sci/eval-string* @ctx expr)))) (sci/eval-string* @ctx expr))))
(defn ^:macro exec (defn ^:macro exec
([_ _ fq-sym] ([_ _ sym]
(let [ns (namespace fq-sym) (let [ns (namespace sym)
var-name (name fq-sym) ns (or ns (symbol (str @sci/ns)))
var-name (name sym)
snippet (cli/exec-fn-snippet ns var-name)] snippet (cli/exec-fn-snippet ns var-name)]
`(load-string ~snippet)))) `(load-string ~snippet))))