Browse files

Clean up dead code

  • Loading branch information...
1 parent 155daec commit 84e25ceda8af49dd53e750527b034761942ae2bd @marick committed Jan 26, 2013
View
1 src/midje/parsing/0_to_fact_form/formulas.clj
@@ -3,7 +3,6 @@
(:use midje.clojure.core
[midje.util.form-utils :only [first-named? pop-docstring pop-opts-map]]
[midje.error-handling.validation-errors :only [simple-validation-error-report-form validate-m validate]]
- [midje.parsing.1-to-explicit-form.prerequisites :only [head-of-form-providing-prerequisites?]]
[midje.parsing.util.arrows :only [leaf-expect-arrows leaves-contain-arrow?]]
[midje.parsing.1-to-explicit-form.future-facts :only [future-prefixes]]
[clojure.algo.monads :only [domonad]]
View
2 src/midje/parsing/0_to_fact_form/tabular.clj
@@ -4,7 +4,7 @@
[clojure.algo.monads :only [domonad]]
[midje.error-handling.validation-errors :only [simple-validation-error-report-form validate-m validate]]
[midje.parsing.util.file-position :only [form-with-copied-line-numbers]]
- [midje.util.form-utils :only [pop-docstring translate-zipper]]
+ [midje.util.form-utils :only [translate-zipper]]
[midje.emission.deprecation :only [deprecate]]
[midje.parsing.util.zip :only [skip-to-rightmost-leaf]]
[midje.parsing.1-to-explicit-form.expects :only [expect?]]
View
3 src/midje/parsing/1_to_explicit_form/facts.clj
@@ -11,10 +11,9 @@
multiwrap
with-additional-wrappers
forms-to-wrap-around]]
- [midje.util.debugging :only [nopret]]
[midje.parsing.1-to-explicit-form.prerequisites :only [head-of-form-providing-prerequisites?
insert-prerequisites-into-expect-form-as-fakes]]
- [midje.parsing.util.arrows :only [start-of-checking-arrow-sequence? leaves-contain-arrow?]]
+ [midje.parsing.util.arrows :only [start-of-checking-arrow-sequence?]]
[midje.parsing.1-to-explicit-form.background :only [surround-with-background-fakes
body-of-against-background
against-background-contents-wrappers
View
3 src/midje/util/object_utils.clj
@@ -10,8 +10,5 @@
(defn function-name [funobj]
(object-name funobj))
-(defn function-name-or-spewage [funobj]
- (or (:name (meta funobj)) (pr-str funobj)))
-
(defn name-object [object name]
(vary-meta object assoc :name name))

0 comments on commit 84e25ce

Please sign in to comment.