Fix for fn? + contains for string

Signed-off-by: James Hamlin <jfhamlin@gmail.com>

Author: jfhamlin

pkg/runtime/rtcompat.go

@@ -127,6 +127,9 @@ func (rt *RTMethods) Contains(coll, key any) bool {
 	case IPersistentSet:
 		return coll.Contains(key)
 		// TODO: other types
+	case string:
+		n := lang.MustAsInt(key)
+		return n >= 0 && n < lang.Count(coll)
 	}
 	panic(fmt.Errorf("contains? not supported on type: %T", coll))
 }

pkg/stdlib/clojure/core.glj

@@ -6209,7 +6209,7 @@ fails, attempts to require sym's namespace and retries."
   "Returns true if x implements Fn, i.e. is an object created via fn."
   {:added "1.0"
    :static true}
-  [x] (or (instance? github.com:glojurelang:glojure:pkg:runtime.*Fn x) (instance? github.com:glojurelang:glojure:pkg:lang.IFn x)))
+  [x] (or (instance? github.com:glojurelang:glojure:pkg:runtime.*Fn x) (instance? github.com:glojurelang:glojure:pkg:lang.FnFunc x)))
 
 
 (defn associative?

pkg/stdlib/clojure/core/loader.go

@@ -352,7 +352,7 @@
   ;; Replace instance? checks for clojure.lang.Fn with OR expression checking both runtime.*Fn and IFn
   (sexpr-replace '(instance? clojure.lang.Fn x)
                  '(or (instance? github.com:glojurelang:glojure:pkg:runtime.*Fn x)
-                      (instance? github.com:glojurelang:glojure:pkg:lang.IFn x)))
+                      (instance? github.com:glojurelang:glojure:pkg:lang.FnFunc x)))
 
    ;; ===== Exception Handling =====
    (sexpr-replace 'Exception. 'github.com:glojurelang:glojure:pkg:lang.NewError)