Rearrange ClojureScript code for AOT compilation and its eventual place in clojure.contrib. Also fix major breaking errors for Clojure SVN 1205, but it's not well tested with this latest version.

1 files changed, 22 insertions, 0 deletions

diff --git a/clojurescript/tests/t02.cljs b/clojurescript/tests/t02.cljs
new file mode 100644
index 00000000..850a55c6
--- /dev/null
+++ b/clojurescript/tests/t02.cljs
@@ -0,0 +1,22 @@
+; This may look like Clojure, but it's actually ClojureScript.  Macros
+; may be used here, but should be defined elsewhere, in regular
+; Clojure code.
+(ns n01se)
+
+(defn my-take
+  "Returns a lazy seq of the first n items in coll, or all items if
+  there are fewer than n."  
+  [n coll]
+    (when (and (pos? n) (seq coll))
+      (lazy-cons (first coll) (my-take (dec n) (rest coll)))))
+
+(defn script-src []
+  (for [elem (.getElementsByTagName document "script")]
+    (do
+      (prn :next)
+      (if-let [src (.src elem)]
+        src
+        "--none--"))))
+
+(doseq [src (my-take 2 (script-src))]
+  (prn src))