Fix regular expression literals.

This allows cljc.reader to read: #inst "2013-09-02T16:42:00.000-00:00",
but since we don't have a Date type yet it just emits a vector of the
respective fields as integers. Cleanups.

Author: Christian Weilbach

src/clj/cljc/compiler.clj

@@ -334,8 +334,11 @@
 (defmethod emit-constant Boolean [x] (if x "value_true" "value_false"))
 
 (defmethod emit-constant java.util.regex.Pattern [x]
-  (emit-value-wrap :pattern-const nil (emits "pcre_pattern ( make_string (" (wrap-in-double-quotes (escape-string (str x))) "))"))
-  #_(FIXME-IMPLEMENT (str "Cannot emit java.util.regex.Pattern for constant " x " yet.")))
+
+  (emit-value-wrap :pattern-const
+                   nil
+                   (emits "FUNCALL1 ((closure_t*)VAR_NAME (cljc_DOT_core_SLASH_re_pattern), make_string ("
+                          (wrap-in-double-quotes (escape-string (str x))) "))")))
 
 (defmethod emit-constant clojure.lang.Keyword [x]
   (emit-value-wrap :keyword nil
@@ -1987,7 +1990,7 @@
 (comment
 
 ;;the new way - use the REPL!!
-(require '[cljs.compiler :as comp])
+(require '[cljc.compiler :as comp])
 (def repl-env (comp/repl-env))
 (comp/repl repl-env)
 ;having problems?, try verbose mode

src/cljc/cljc/core.cljc

@@ -94,6 +94,9 @@
 	  (recur (inc i) args))))
     a))
 
+(defn ^boolean array? [cand]
+  (has-type? cand Array))
+
 (defn make-array [size]
   (c* "make_array (integer_get (~{}))" size))
 
@@ -891,7 +894,7 @@ reduces them without incurring seq initialization"
                      (str ns "/" name)
                      name)]
        #_(Symbol. ns name sym-str nil nil)
-       (c* "make_symbol( string_get_utf8( make_string_copy( string_get_utf8 (~{}) ) ) )" sym-str))))
+       (c* "make_symbol( string_get_utf8( ~{}) )" sym-str))))
 
 
 (defn ^boolean number? [n]
@@ -6315,7 +6318,7 @@ reduces them without incurring seq initialization"
 
  (defn- parse-float [s]
    (if-objc
-   (§ s :floatValue)
+    (§ s :floatValue)
     (c* "make_float (g_ascii_strtod (string_get_utf8 (~{}), NULL ) )" s)))