From: Joel Holdbrooks <cjholdbrooks@gmail.com>
Date: Sat, 17 Aug 2013 16:55:32 +0000 (-0700)
Subject: Don't use `char?`
X-Git-Url: https://vcs.fsf.org/?a=commitdiff_plain;h=215a646d365163c1f379e770647bd72e781d0571;p=frak.git

Don't use `char?`
---

diff --git a/src/clj/frak.clj b/src/clj/frak.clj
index 8de473e..1cb683f 100644
--- a/src/clj/frak.clj
+++ b/src/clj/frak.clj
@@ -67,8 +67,8 @@
 (defn- render-trie [trie]
   (let [{vs :visitors ts :terminals} trie
         terminal? (set ts)
-        ks (->> (keys trie)
-                (filter char?)
+        ks (->> (dissoc trie :visitors :terminals)
+                (keys)
                 (sort-by (frequencies vs))
                 reverse)
         nks (if-let [cs (seq (filter #(nil? (trie %)) ks))]