Skip to content

Commit

Permalink
[#480] letfn: minor
Browse files Browse the repository at this point in the history
  • Loading branch information
borkdude committed Dec 20, 2020
1 parent 6921ecc commit a6196bb
Showing 1 changed file with 4 additions and 3 deletions.
7 changes: 4 additions & 3 deletions src/sci/impl/namespaces.cljc
Original file line number Diff line number Diff line change
Expand Up @@ -275,9 +275,10 @@
~(vec (interleave syms (repeat nil)))
~@(map (fn [sym fn-spec]
`(clojure.core/var-set ~sym (fn ~sym ~@(rest fn-spec)))) syms fnspecs)
(let ~(vec (interleave syms (map (fn [sym]
(list 'var-get sym))
syms)))
(let ~(vec (interleave syms
(map (fn [sym]
`(clojure.core/var-get ~sym))
syms)))
~@body))))

(defn with-local-vars* [form _ name-vals-vec & body]
Expand Down

0 comments on commit a6196bb

Please sign in to comment.