update inbox list
This commit is contained in:
11
vendor/scrivo/highlight.php/test/detect/clojure/default.txt
vendored
Normal file
11
vendor/scrivo/highlight.php/test/detect/clojure/default.txt
vendored
Normal file
@@ -0,0 +1,11 @@
|
||||
(def ^:dynamic chunk-size 17)
|
||||
|
||||
(defn next-chunk [rdr]
|
||||
(let [buf (char-array chunk-size)
|
||||
s (.read rdr buf)]
|
||||
(when (pos? s)
|
||||
(java.nio.CharBuffer/wrap buf 0 s))))
|
||||
|
||||
(defn chunk-seq [rdr]
|
||||
(when-let [chunk (next-chunk rdr)]
|
||||
(cons chunk (lazy-seq (chunk-seq rdr)))))
|
||||
Reference in New Issue
Block a user