From dcc99023d64366771aff2e5afc5b8b1c386952a4 Mon Sep 17 00:00:00 2001
From: Tony Lofthouse <tony_lofthouse@btinternet.com>
Date: Fri, 1 Apr 2016 16:01:51 +0100
Subject: [PATCH] Updated task-creator, added system-time-tick to declare and
 added (defn aname :task-creator)

---
 src/narjure/core.clj                           | 2 +-
 src/narjure/perception_action/task_creator.clj | 6 ++++--
 2 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/src/narjure/core.clj b/src/narjure/core.clj
index 2163b82..a1fb8c6 100644
--- a/src/narjure/core.clj
+++ b/src/narjure/core.clj
@@ -38,7 +38,7 @@
 (defn create-system-actors
   "Spawns all actors which self register!"
   []
-  (spawn anticipated-event)
+  (spawn active-concept-collator)
   (spawn concept-creator)
   (spawn forgettable-concept-collator)
   (spawn general-inferencer)
diff --git a/src/narjure/perception_action/task_creator.clj b/src/narjure/perception_action/task_creator.clj
index 7ad67cb..c8da6a8 100644
--- a/src/narjure/perception_action/task_creator.clj
+++ b/src/narjure/perception_action/task_creator.clj
@@ -4,7 +4,7 @@
     [taoensso.timbre :refer [debug]])
   (:refer-clojure :exclude [promise await]))
 
-(declare task-creator sentence)
+(declare task-creator sentence system-time-tick)
 
 (defactor task-creator
   "Creates task from Sentence
@@ -14,9 +14,11 @@
   {:sentence-msg  sentence
    :system-time-tick-msg system-time-tick})
 
+(def aname :task-creator)
+
 (defn sentence [_ _]
   (debug aname "process-sentence"))
 
 (defn system-time-tick [_ state]
-  ;(debug :system-time (str "process-system-time-tick " state))
+  (debug aname "process-system-time-tick")
   (inc state))