    (->> (build-pre-post-map cnstr)
         (manip-map (partial funcify '[%]) [:post])
         (manip-map (partial funcify args) [:pre]))])
+
 
 (defn- build-contract 
   "Expects a seq representing an arity-based expectation of the form:

          (catch AssertionError post#
            (throw (AssertionError. (str "Post-condition failure in " ~n "! " (.getMessage post#))))))))))

(defmacro contract
  "The base contract form returning a higher-order function that can then be partially
   applied to an existing function to 'apply' a contract.  Take for example a simple

  `(HOC. (vec '~argspec) nil))

(comment
  (_ even? number? => number?)
)

;; # base functions and macros
