(defmacro def-
  "Defines a private var."
  [name val]
  (list `def (with-meta name (assoc (meta name) :private true)) val))