Updated to Java commit 0bc837b (2016.06.10): add :args/:ret/:fn acces…

…sors for fspecs
clojure · Sep 24, 2016 · 1773bba · 1773bba
1 parent 888705f
commit 1773bba
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/Clojure/Clojure.Source/clojure/spec.clj b/Clojure/Clojure.Source/clojure/spec.clj
@@ -1415,6 +1415,16 @@ by ns-syms. Idempotent."
     (reify
      clojure.lang.IFn
      (invoke [this x] (valid? this x))
+
+     clojure.lang.ILookup
+     (valAt [this k] (.valAt this k nil))
+     (valAt [_ k not-found]
+            (case k
+                  :args argspec
+                  :ret retspec
+                  :fn fnspec
+                  not-found))
+
      Spec
      (conform* [_ f] (if (fn? f)
                        (if (identical? f (validate-fn f specs *fspec-iterations*)) f ::invalid)