Permalink
Browse files

to-thunks is no longer used anywhere

  • Loading branch information...
1 parent e652404 commit 3f1d66591efd19dd897b38a6054088660687fd09 @marick committed Dec 5, 2012
Showing with 1 addition and 8 deletions.
  1. +1 −1 src/midje/internal_ideas/fakes.clj
  2. +0 −7 src/midje/util/form_utils.clj
@@ -7,7 +7,7 @@
[midje.checkers.defining :only [checker? checker-makers]]
[midje.internal-ideas.expect :only [expect? up-to-full-expect-form]]
[midje.util.form-utils :only [first-named? translate-zipper map-difference
- hash-map-duplicates-ok pred-cond to-thunks
+ hash-map-duplicates-ok pred-cond
quoted-list-form? extended-fn?
fnref-call-form
fnref-var-object
@@ -249,13 +249,6 @@ metadata (as provided by def) merged into the metadata of the original."
;;;;
-(defmacro to-thunks
- "Takes a seq of unevaluated exprs. Returns a seq of no argument fns,
- that call each of the exprs in turn"
- [exprs]
- (vec (for [x exprs]
- `(fn [] ~x))))
-
(defn pop-if
"Extracts optional arg (that we assume is present if the pred is true) from head of args"
[pred args]

0 comments on commit 3f1d665

Please sign in to comment.