diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/clj/clojure/core.clj | 1 | ||||
| -rw-r--r-- | src/clj/clojure/core_deftype.clj.rej | 21 |
2 files changed, 1 insertions, 21 deletions
diff --git a/src/clj/clojure/core.clj b/src/clj/clojure/core.clj index 22357b69..2a2563f5 100644 --- a/src/clj/clojure/core.clj +++ b/src/clj/clojure/core.clj @@ -5675,6 +5675,7 @@ versions can replace arguments in the second and third positions (y, z). Note that the function f can take any number of arguments, not just the one(s) being nil-patched." + {:added "1.2"} ([f x] (fn ([a] (f (if (nil? a) x a))) diff --git a/src/clj/clojure/core_deftype.clj.rej b/src/clj/clojure/core_deftype.clj.rej deleted file mode 100644 index 83fab7ee..00000000 --- a/src/clj/clojure/core_deftype.clj.rej +++ /dev/null @@ -1,21 +0,0 @@ -diff a/src/clj/clojure/core_deftype.clj b/src/clj/clojure/core_deftype.clj (rejected hunks) -@@ -10,13 +10,18 @@ - - ;;;;;;;;;;;;;;;;;;;;;;;;;;;; definterface ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; - -+(defn namespace-munge -+ "Convert a Clojure namespace name to a legal Java package name." -+ [ns] -+ (.replace (str ns) \- \_)) -+ - ;for now, built on gen-interface - (defmacro definterface - [name & sigs] - (let [tag (fn [x] (or (:tag (meta x)) Object)) - psig (fn [[name [& args]]] - (vector name (vec (map tag args)) (tag name))) -- cname (symbol (str *ns* "." name))] -+ cname (symbol (str (namespace-munge *ns*) "." name))] - `(do (gen-interface :name ~cname :methods ~(vec (map psig sigs))) - (import ~cname)))) - |