fix bug, function tr

dakrone · Mar 16, 2014 · a10f48f · a10f48f
1 parent 7ce9562
commit a10f48f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/opennlp/treebank.clj b/src/opennlp/treebank.clj
@@ -177,7 +177,7 @@
   (let [t (or tag-fn symbol)]
     (if (= :E (first ptree))
       {:tag 
-      (t (second (second ptree))) :chunk (map tr (drop 2 ptree))}
+      (t (second (second ptree))) :chunk (map #(tr % tag-fn) (drop 2 ptree))}
       (second ptree))))
 
 (defn make-tree