added a simple with-contracts macro that composes a string of contrac…

…ts with a root contractee function
fogus · Jun 4, 2010 · 2f03a99 · 2f03a99
1 parent f359c99
commit 2f03a99
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/src/fogus/me/trammel.clj b/src/fogus/me/trammel.clj
@@ -25,6 +25,12 @@
          (rest forms)
          forms)))))
 
+(defmacro with-contracts
+  ([f] f)
+  ([f contract] (list 'partial contract f))
+  ([f contract & more]
+     `(with-contracts (with-contracts ~f ~contract) ~@more)))
+
 (defmacro defconstrainedfn
   [name & body]
   (let [mdata (if (string? (first body))