diff options
| -rw-r--r-- | src/clj/clojure/core.clj | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/clj/clojure/core.clj b/src/clj/clojure/core.clj index b5835565..ffd3edde 100644 --- a/src/clj/clojure/core.clj +++ b/src/clj/clojure/core.clj @@ -1504,7 +1504,7 @@ (def map) -(defn check-options +(defn ^:private check-valid-options "Throws an exception if the given option map contains keys not listed as valid, else returns nil." [options & valid-keys] @@ -1554,7 +1554,7 @@ (let [options (apply hash-map options) default (get options :default :default) hierarchy (get options :hierarchy #'global-hierarchy)] - (check-options options :default :hierarchy) + (check-valid-options options :default :hierarchy) `(let [v# (def ~mm-name)] (when-not (and (.hasRoot v#) (instance? clojure.lang.MultiFn (deref v#))) (def ~(with-meta mm-name m) @@ -6341,4 +6341,4 @@ (defn realized? "Returns true if a value has been produced for a promise, delay, future or lazy sequence." {:added "1.3"} - [^clojure.lang.IPending x] (.isRealized x))
\ No newline at end of file + [^clojure.lang.IPending x] (.isRealized x)) |