improve diagnostics

ekoontz · Jul 13, 2024 · ce70483 · ce70483
1 parent d06a595
commit ce70483
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/menard/english.cljc b/src/menard/english.cljc
@@ -212,7 +212,8 @@
                                    (log/debug (str "post-lexical-retrieval-rule matched: " each-then))
                                    (log/debug (str " lexeme: " (l/pprint lexeme)))
                                    (if (= :fail unify)
-                                     (exception (str "unified rule's :if but not its :then: rule: " rule "; lexeme: " (l/pprint lexeme)))
+                                     (exception (str "lexeme: " (l/pprint lexeme)
+                                                     " unified rule's :if but not its :then: rule: " rule ": fail-path: " (diag/fail-path lexeme each-then)))
                                      unify)))))
                      [lexeme]))))))