diff options
Diffstat (limited to 'test/syntax/code/clojure')
-rw-r--r-- | test/syntax/code/clojure | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/test/syntax/code/clojure b/test/syntax/code/clojure new file mode 100644 index 00000000..ebce2352 --- /dev/null +++ b/test/syntax/code/clojure @@ -0,0 +1,18 @@ +; Comment + +(def + ^{:macro true + :added "1.0"} + let (fn* let [&form &env & decl] (cons 'let* decl))) + +(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))))) |