handle {:derivation :top}

ekoontz · Aug 1, 2024 · ed09860 · ed09860
1 parent 6e7959c
commit ed09860
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/src/menard/lexiconfn.cljc b/src/menard/lexiconfn.cljc
@@ -67,8 +67,11 @@
                     {:head-derivation (menard.lexiconfn/display-derivation head-derivation)}
                     (and (not (keyword? comp-derivation)) (seq comp-derivation))
                     {:comp-derivation (menard.lexiconfn/display-derivation comp-derivation)})
-              (when (seq exceptions)
-                {:exceptions (vec exceptions)}))))
+              (cond (keyword? exceptions)
+                    {}
+                    (seq exceptions)
+                    {:exceptions (vec exceptions)}
+                    :else {}))))
           u/pprint)
       :else lexeme)))