From fc941ce90e9a4ad61206758091b3822341380808 Mon Sep 17 00:00:00 2001 From: Dave Della Costa Date: Wed, 18 Jun 2014 21:14:11 +0900 Subject: [PATCH] replace misnamed fn --- src/views/db/checks.clj | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/views/db/checks.clj b/src/views/db/checks.clj index 0f30ede..70a6ecb 100644 --- a/src/views/db/checks.clj +++ b/src/views/db/checks.clj @@ -12,14 +12,14 @@ {:node true :state (conj s n)}))) -(defn swap-wc-preds* +(defn swap-wc-preds [wc] (let [root (z/vector-zip wc)] (zv/visit root nil [(replace-param-pred)]))) (defn swap-preds [vm] - (let [{:keys [node state]} (swap-wc-preds* (:where vm))] + (let [{:keys [node state]} (swap-wc-preds (:where vm))] {:q (assoc vm :where node) :p state})) (defn view-sig->dummy-args