diff options
| author | Rich Hickey <richhickey@gmail.com> | 2008-01-28 14:53:01 +0000 |
|---|---|---|
| committer | Rich Hickey <richhickey@gmail.com> | 2008-01-28 14:53:01 +0000 |
| commit | bd2912fac5941b008d0f53a9edbb4909d7320c6a (patch) | |
| tree | 44eb809677df915762239b0ab869ea2c43987f55 /src | |
| parent | 3849410faf554b7268d8175c5a0cb29f51a8ebcc (diff) | |
interim checkin, do not use
added array-map
Diffstat (limited to 'src')
| -rw-r--r-- | src/boot.clj | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/src/boot.clj b/src/boot.clj index 70e9f30e..5e2b096b 100644 --- a/src/boot.clj +++ b/src/boot.clj @@ -39,7 +39,6 @@ ([comparator & args] (. clojure.lang.PersistentTreeMap (create comparator args)))) - ;;;;;;;;;;;;;;;;; metadata ;;;;;;;;;;;;;;;;;;;;;;;;;;; (defn meta [#^clojure.lang.IObj x] (. x (meta))) @@ -1085,11 +1084,15 @@ ~@body (finally (. clojure.lang.Var (popThreadBindings)))))) -(defn resolve-in [ns sym] +(defn ns-resolve [ns sym] (. clojure.lang.Compiler (resolveIn ns sym))) (defn resolve [sym] - (resolve-in *ns* sym)) + (ns-resolve *ns* sym)) + +(defn array-map + ([] (. clojure.lang.PersistentArrayMap EMPTY)) + ([& args] (new clojure.lang.PersistentArrayMap (to-array args)))) (export '( load-file load @@ -1149,7 +1152,8 @@ load-file in-ns find-ns filter-key find-ns create-ns remove-ns take-nth interleave get-var set-var with-local-vars - resolve-in resolve + ns-resolve resolve all-ns ns-name + array-map )) |