From 1bdc55b5ccdb9b0ae58484113b50c2ff06b9eaf1 Mon Sep 17 00:00:00 2001
From: Eric Schulte <schulte.eric@gmail.com>
Date: Tue, 9 Nov 2010 22:53:03 -0700
Subject: [PATCH] vector evaluation ensures incremental results are vectors

---
 src/neural_net/core.clj | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/neural_net/core.clj b/src/neural_net/core.clj
index dd8eec2..e68569e 100644
--- a/src/neural_net/core.clj
+++ b/src/neural_net/core.clj
@@ -39,7 +39,8 @@
 
  ;; a vector of ns in different layers
  clojure.lang.IPersistentVector   
- (run     [this x]     (reduce (fn [x layer] (run layer x)) x this))
+ (run     [this x]
+          (reduce (fn [x layer] (run layer (if (vector? x) x [x]))) x this))
  (train   [this x y d]
           (let [xs (reverse (reduce
                              (fn [xs layer] (cons (run layer (first xs)) xs))
-- 
2.11.4.GIT