From ae26a393e8a83d5c608a34b622395c249eab9935 Mon Sep 17 00:00:00 2001 From: Simon Brooke Date: Thu, 21 Aug 2025 14:53:54 +0100 Subject: [PATCH] Small changes. Generally, prefer find-x-for to reinventing the wheel. --- src/arboretum/dengine/dengine.clj | 4 +--- test/dengine/dengine_test.clj | 3 ++- 2 files changed, 3 insertions(+), 4 deletions(-) diff --git a/src/arboretum/dengine/dengine.clj b/src/arboretum/dengine/dengine.clj index 7207bec..f3d0f86 100644 --- a/src/arboretum/dengine/dengine.clj +++ b/src/arboretum/dengine/dengine.clj @@ -1,12 +1,10 @@ (ns arboretum.dengine.dengine (:require [arboretum.dengine.kb :refer [!kb find-case-for find-feature-for remember!]] - [arboretum.dengine.protocols :refer [Case]] [taoensso.telemere :refer [log!]])) - (defn dengine [feat c] - (let [c' (if (satisfies? Case c) c (-> @!kb :cases c)) + (let [c' (find-case-for @!kb c) f' (find-feature-for @!kb feat)] (log! {:msg (format "Inferring value of `%s` for `%s`" (:case-id c') (:feature-id f'))}) diff --git a/test/dengine/dengine_test.clj b/test/dengine/dengine_test.clj index aa2a83c..eb399f6 100644 --- a/test/dengine/dengine_test.clj +++ b/test/dengine/dengine_test.clj @@ -7,6 +7,7 @@ (testing "Context of the test assertions" (let [expected true actual (:value - (decide-feat :is-entitled-to-widows-allowance :case-1))](is (= actual expected))))) + (decide-feat :is-entitled-to-widows-allowance :case-1))] + (is (= actual expected)))))