Add async_tests and make a few fixes. All tests in async_tests now pass!

Author: dmiller

src/main/clojure/clojure/core/async.clj

@@ -480,15 +480,15 @@ to catch and handle."
   [f]
   (let [c (chan 1)]
     (let [binds (clojure.lang.Var/getThreadBindingFrame)]
-      (.newThread counted-thread-factory                                  ;;; .execute thread-macro-executor
+      (.Start (.newThread counted-thread-factory                                  ;;; .execute thread-macro-executor
                 (fn []
                   (Var/resetThreadBindingFrame binds)
                   (try
                     (let [ret (f)]
                       (when-not (nil? ret)
                         (>!! c ret)))
                     (finally
-                      (close! c))))))
+                      (close! c)))))))
     c))
 
 (defmacro thread