summaryrefslogtreecommitdiff
path: root/test/syntax/code/clojure
diff options
context:
space:
mode:
Diffstat (limited to 'test/syntax/code/clojure')
-rw-r--r--test/syntax/code/clojure18
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)))))