Don't use `char?`

diff --git a/src/clj/frak.clj b/src/clj/frak.clj
index 8de473ebb716c130b5b54de91edbaac741dc4232..1cb683ff7cd251c316dc62a38e59a52782455dbd 100644 (file)
--- 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))]