keep-bindings

swank.util

  • (keep-bindings bindings f)

0 Examples top

Log in to add / edit an example.

See Also top

Log in to add a see also.

Plus_12x12 Minus_12x12 Source swank/util.clj:59 top

(defmacro keep-bindings [bindings f]
  (let [bind-vars (take (count bindings) (repeatedly gensym))]
    `(let [~@(interleave bind-vars bindings)]
       (fn [& args#]
         (binding [~@(interleave bindings bind-vars)]
           (apply ~f args#))))))
Vars in swank.util/keep-bindings: defmacro interleave let apply binding concat fn list seq vector
Used in 0 other vars

Comments top

No comments for keep-bindings. Log in to add a comment.