From 77675e1b80cfaa126a86c5af13ec93df35cf865e Mon Sep 17 00:00:00 2001
From: Rob Rix <rob.rix@me.com>
Date: Fri, 26 Oct 2018 12:52:30 -0400
Subject: [PATCH] Rename analyzeTerm to perTerm.

---
 src/Semantic/Analysis.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Semantic/Analysis.hs b/src/Semantic/Analysis.hs
index bae22b08c..92e5901c1 100644
--- a/src/Semantic/Analysis.hs
+++ b/src/Semantic/Analysis.hs
@@ -102,7 +102,7 @@ evalTerm :: ( Carrier sig m
             )
          => Open (Open (term -> Evaluator term address value m (ValueRef address)))
          -> term -> Evaluator term address value m address
-evalTerm analyzeTerm = fix (analyzeTerm (\ ev -> eval ev . project)) >=> address
+evalTerm perTerm = fix (perTerm (\ ev -> eval ev . project)) >=> address
 
 runValueEffects :: ( AbstractValue term address value (ValueC term address value m)
                    , Carrier sig m