use condp instead of lookup in a map

src/midje/semi_sweet.clj

@@ -31,10 +31,11 @@
 ;; FURTHERMORE, I wanted to use set operations to check for fake and not-called,
 ;; but those fail for reasons I don't understand. Bah.
 (defn- ^{:testable true } check-for-arrow [arrow]
-  (get {=> :check-match
-        =expands-to=> :check-match
-        =not=> :check-negated-match
-        =deny=> :check-negated-match} (name arrow)))
+  (condp = (name arrow)
+    => :check-match
+    =expands-to=> :check-match
+    =not=> :check-negated-match
+    =deny=> :check-negated-match))
 
 (defmacro unprocessed-check
   "Creates a map that contains a function-ized version of the form being 
@@ -54,17 +55,15 @@
      :arrow '~arrow }
      (hash-map-duplicates-ok ~@overrides)))
 
-(letfn [(how-to-handle-check [_call-form_ arrow & _]
-          (get {=> :expect*
-                =not=> :expect*
-                =deny=> :expect*
-                =expands-to=> :expect-macro*
-                =future=> :report-future-fact} (name arrow)))]
+(defmulti ^{:private true} expect-expansion (fn [_call-form_ arrow & _]
+                                               (condp = (name arrow)
+                                                  => :expect*
+                                                  =not=> :expect*
+                                                  =deny=> :expect*
+                                                  =expands-to=> :expect-macro*
+                                                  =future=> :report-future-fact )))
 
-  (defmulti ^{:private true} expect-expansion how-to-handle-check))
-
-(defmethod expect-expansion :expect*
-  [call-form arrow expected-result fakes overrides]
+(defmethod expect-expansion :expect* [call-form arrow expected-result fakes overrides]
   `(let [check# (unprocessed-check ~call-form ~arrow ~expected-result ~overrides)]
      (midje.semi-sweet/*expect-checking-fn* check# ~fakes)))