diff options
| author | Stuart Halloway <stu@thinkrelevance.com> | 2011-04-22 10:32:45 -0400 |
|---|---|---|
| committer | Stuart Halloway <stu@thinkrelevance.com> | 2011-04-29 11:11:43 -0400 |
| commit | 9b93f9e8621b24ef58165d49d39034f5dbd5c9f7 (patch) | |
| tree | 53a0bab2435617777a5b1f777513289263074983 | |
| parent | 1e863f49813fb3e540034bc541ca0fb835cab9e1 (diff) | |
#CLJ-236: more specific, private name for helper fn
Signed-off-by: Stuart Halloway <stu@thinkrelevance.com>
| -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)) |