From 01b69066fa66f5b688eaf8e260a49ef2fd2fa70c Mon Sep 17 00:00:00 2001
From: Eric Schulte <schulte.eric@gmail.com>
Date: Wed, 14 Apr 2010 16:24:22 -0600
Subject: [PATCH] adding debugging info

---
 propagator.org | 13 ++++++++++---
 1 file changed, 10 insertions(+), 3 deletions(-)

diff --git a/propagator.org b/propagator.org
index 73b050c..b271180 100644
--- a/propagator.org
+++ b/propagator.org
@@ -13,7 +13,8 @@
          :license "GPLV3",
          :doc "Simple concurrent propagator system."}
     propagator
-    (:use clojure.contrib.repl-utils))
+    (:use clojure.contrib.repl-utils
+          clojure.contrib.duck-streams))
   
   (defmacro cell "Define a new cell."
     [name state]
@@ -26,7 +27,9 @@
                 (assoc (meta name)
                   :in-cells in-cells :out-cells out-cells))
          ~in-cells ~@body)
-       (doseq [cell# ~in-cells] (add-neighbor cell# ~name))
+       (doseq [cell# ~in-cells]
+         (println (format "adding %S to %S" ~name cell#))
+         (add-neighbor cell# ~name))
        ~name))
   
   (defmacro run-propagator
@@ -41,7 +44,11 @@
     [cell neighbor]
     `(add-watcher
       ~cell :send
-      (agent nil :validator (fn [_#] (do (future (run-propagator ~neighbor)) true)))
+      (agent nil :validator
+             (fn [_#]
+               (run-propagator ~neighbor)
+               (append-spit "/home/Desktop/spitoon" (~neighbor))
+               true))
       (fn [_# _#])))
 #+end_src
 
-- 
2.11.4.GIT