add short-circuit mechanism

ekoontz · Jul 22, 2024 · 83a6c9b · 83a6c9b
1 parent 85f8828
commit 83a6c9b
Showing 1 changed file with 12 additions and 6 deletions.
diff --git a/src/menard/english.cljc b/src/menard/english.cljc
@@ -145,7 +145,8 @@
     :if {:cat :verb
          :aux? false
          :modal :none
-         :infl ::unspec}
+         :infl ::unspec
+         :post-lex-rules-stop? ::unspec}
     :then [{:infl :base}
            {:infl :present}
            {:infl :present-participle}
@@ -155,32 +156,37 @@
     :if {:cat :verb
          :aux? false
          :modal :infinitive
-         :infl ::unspec}
+         :infl ::unspec
+         :post-lex-rules-stop? ::unspec}
     :then [{:infl :base}
            {:infl :present}
            {:infl :present-participle}
            {:infl :past-participle}
            {:infl :past-simple}]}
-    {:rule :present-infl-to-present-tense
+
+   {:rule :present-infl-to-present-tense
     :if {:cat :verb
          :aux? false
          :modal :none
-         :infl :present}
+         :infl :present
+         :post-lex-rules-stop? ::unspec}
     :then [{:infl :present
             :sem {:tense :present
                   :aspect :simple}}]}
    {:rule :tense-non-aux-future
     :if {:cat :verb
          :aux? false
          :modal :none
-         :infl :present}
+         :infl :present
+         :post-lex-rules-stop? ::unspec}
     :then [{:infl :present
             :sem {:tense :present
                   :aspect :simple}}]}
    {:rule :past-simple-non-aux
     :if {:cat :verb
          :aux? false
-         :infl :past-simple}
+         :infl :past-simple
+         :post-lex-rules-stop? ::unspec}
     :then [{:sem {:tense :past
                   :aspect :perfect}}]}])
 ;; </TODO>