Use case instead of cond in visit-unknown.

greglook · Oct 12, 2015 · 2539d1a · 2539d1a
1 parent ac17e0e
commit 2539d1a
Showing 1 changed file with 6 additions and 7 deletions.
diff --git a/src/puget/printer.clj b/src/puget/printer.clj
@@ -330,21 +330,20 @@
 
   (visit-unknown
     [this value]
-    (cond
-      (= :pretty print-fallback)
+    (case print-fallback
+      :pretty
         (format-unknown this value)
-      (= :print print-fallback)
+      :print
         [:span (pr-str value)]
-      (= :error print-fallback)
+      :error
         (throw (IllegalArgumentException.
                  (str "No defined representation for " (class value) ": "
                       (pr-str value))))
-      (ifn? print-fallback)
+      (if (ifn? print-fallback)
         (print-fallback this value)
-      :else
         (throw (IllegalStateException.
                  (str "Unsupported value for print-fallback: "
-                      (pr-str value)))))))
+                      (pr-str print-fallback))))))))