From 46db76253a8be9fc13dc4fad5f0c76c32fbc2dbd Mon Sep 17 00:00:00 2001
From: Jeremy Dormitzer <jeremy.dormitzer@gmail.com>
Date: Sat, 20 Jul 2019 14:38:04 -0400
Subject: [PATCH] Fix always true rules

---
 src/sicp_logic/evaluator.clj | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/sicp_logic/evaluator.clj b/src/sicp_logic/evaluator.clj
index 6a85d66..430762c 100644
--- 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