Skip to content

Instantly share code, notes, and snippets.

@orderthruchaos

orderthruchaos/bnd_utils.clj

Created September 10, 2015 23:37
Show Gist options
  • Save orderthruchaos/70962bffa894766dd481 to your computer and use it in GitHub Desktop.
Save orderthruchaos/70962bffa894766dd481 to your computer and use it in GitHub Desktop.
Download ZIP
Implementation of `def-` for Clojure
Raw
bnd_utils.clj
(ns bnd-utils)
; Based on the definition of defn-
(defmacro def-
"same as def, yielding non-public def"
[name & decls]
(let [m (assoc (meta name) :private true)]
`(do
(def ~name ~@decls)
(alter-meta! (var ~name) assoc :private true))
))
@orderthruchaos
Copy link
Author

I know... I know... https://groups.google.com/d/msg/clojure/r_ym-h53f1E/EQ-3Q4UpQwEJ

Still... I like it.

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment