shlomiv · March 8, 2016 00:30
diff --git a/working clojure 1.8 with warc.clj b/working clojure 1.8 with warc.clj
 (defn mapper-map [this ^Text key ^ArchiveReader warc-value ^MapContext context]
  (let [i (.iterator warc-value)]
    (loop []
      (when (.hasNext i)
        (let [^ArchiveRecord l (.next i)]
          (println "got " (.available l))
          (recur)))))
	(defn mapper-map [this ^Text key ^ArchiveReader warc-value ^MapContext context]
	(let [i (.iterator warc-value)]
	(loop []
	(when (.hasNext i)
	(let [^ArchiveRecord l (.next i)]
	(println "got " (.available l))
	(recur)))))