From 5fc6893caa915ba5e7ee34d5bc34020615e96955 Mon Sep 17 00:00:00 2001
From: Andy Fingerhut <andy_fingerhut@alum.wustl.edu>
Date: Sun, 28 Oct 2012 15:37:00 -0700
Subject: [PATCH] CINCU-2: Add type hints to eliminate reflection in
 core.incubator

---
 src/main/clojure/clojure/core/incubator.clj | 4 ++--
 src/main/clojure/clojure/core/strint.clj    | 2 +-
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/main/clojure/clojure/core/incubator.clj b/src/main/clojure/clojure/core/incubator.clj
index 40154f1..65f80d5 100644
--- a/src/main/clojure/clojure/core/incubator.clj
+++ b/src/main/clojure/clojure/core/incubator.clj
@@ -76,11 +76,11 @@
 
 (defn seqable?
   "Returns true if (seq x) will succeed, false otherwise."
-  [x]
+  [^Object x]
   (or (seq? x)
       (instance? clojure.lang.Seqable x)
       (nil? x)
       (instance? Iterable x)
       (-> x .getClass .isArray)
       (string? x)
-      (instance? java.util.Map x)))
\ No newline at end of file
+      (instance? java.util.Map x)))
diff --git a/src/main/clojure/clojure/core/strint.clj b/src/main/clojure/clojure/core/strint.clj
index f1e9d66..0ff81ff 100644
--- a/src/main/clojure/clojure/core/strint.clj
+++ b/src/main/clojure/clojure/core/strint.clj
@@ -37,7 +37,7 @@
         (cons (subs s 0 2) (interpolate (subs s 2))))))
   ([^String s]
     (if-let [start (->> ["~{" "~("]
-                     (map #(.indexOf s %))
+                     (map #(.indexOf s ^String %))
                      (remove #(== -1 %))
                      sort
                      first)]
-- 
1.8.0