Fix always true rules

2019-07-20 14:38:04 -04:00 · 2019-07-20 14:38:04 -04:00 · 46db76253a
commit 46db76253a
parent b188230284
1 changed files with 1 additions and 1 deletions
--- a/src/sicp_logic/evaluator.clj
+++ b/src/sicp_logic/evaluator.clj
@ -80,7 +80,7 @@

 (defn rule-body [rule]
  "Selects the rule's body"
-  (or (second rule) :always-true))
+  (or (second rule) [:always-true]))

 (defn apply-a-rule [db rule query frame]
  "Applies the `rule` to the `query` in the