@@ -129,17 +129,6 @@ vector? (fn vector? [x] (instance? clojure.lang.IPersistentVector x))) (def - #^{:private true} - sigs - (fn [fdecl] - (if (seq? (first fdecl)) - (loop [ret [] fdecl fdecl] - (if fdecl - (recur (conj ret (first (first fdecl))) (next fdecl)) - (seq ret))) - (list (first fdecl))))) - -(def #^{:arglists '([map key val] [map key val & kvs]) :doc "assoc[iate]. When applied to a map, returns a new map of the same (hashed/sorted) type, that contains the mapping of key(s) to @@ -169,6 +158,27 @@ with-meta (fn with-meta [#^clojure.lang.IObj x m] (. x (withMeta m)))) +(def + #^{:private true} + sigs + (fn [fdecl] + (let [asig + (fn [fdecl] + (let [arglist (first fdecl) + body (next fdecl)] + (if (map? (first body)) + (if (next body) + (with-meta arglist (conj (if (meta arglist) (meta arglist) {}) (first body))) + arglist) + arglist)))] + (if (seq? (first fdecl)) + (loop [ret [] fdecls fdecl] + (if fdecls + (recur (conj ret (asig (first fdecls))) (next fdecls)) + (seq ret))) + (list (asig fdecl)))))) + + (def #^{:arglists '([coll]) :doc "Return the last item in coll, in linear time"} src/clj/clojure/core.clj 6201f5e2ddd52f1b483d75563b0380deba59777c Rich Hickey richhickey@gmail.com http://github.com/richhickey/clojure/commit/88cb2692219dfba415e2e6c631077e0d0e8a7699 88cb2692219dfba415e2e6c631077e0d0e8a7699 2009-07-01T11:06:57-07:00 2009-07-01T11:06:57-07:00 in defn, propagate pre/post conditions written as map trailing arglist to metadata on arglist 93fafb65acd33b512f30248ff78bdfe4342afee5 Rich Hickey richhickey@gmail.com