diff options
| author | Tom Faulhaber <git_net@infolace.com> | 2009-12-11 00:07:33 -0800 |
|---|---|---|
| committer | Tom Faulhaber <git_net@infolace.com> | 2009-12-11 00:07:33 -0800 |
| commit | e5b7819ef66410a87b8072417dc2f09ac4ddb03f (patch) | |
| tree | 2b5c6187133f4adeace1662d5cec6e574a3b5c2d /clojurescript | |
| parent | eb73c54687a9ed63dc939bbe886170f4a47455ed (diff) | |
Changed all instances of ^x across contrib to (meta x) since the ^x form is being deprecated in 1.1
refs #48
Diffstat (limited to 'clojurescript')
| -rw-r--r-- | clojurescript/src/clojure/contrib/clojurescript.clj | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/clojurescript/src/clojure/contrib/clojurescript.clj b/clojurescript/src/clojure/contrib/clojurescript.clj index 1b8d696a..a9db6d7b 100644 --- a/clojurescript/src/clojure/contrib/clojurescript.clj +++ b/clojurescript/src/clojure/contrib/clojurescript.clj @@ -147,7 +147,7 @@ n))) (defn- var-parts [e] - (let [{:keys [name ns]} ^(.var e)] + (let [{:keys [name ns]} (meta (.var e))] [(Compiler/munge (str (.getName ns))) (var-munge name)])) (defmethod tojs clojure.lang.Compiler$UnresolvedVarExpr [e ctx] @@ -318,7 +318,7 @@ (eval f) nil) (when-not (or (and (instance? Compiler$DefExpr mainexpr) - (skip-def (:name ^(.var mainexpr)))) + (skip-def (:name (meta (.var mainexpr))))) (and (instance? Compiler$InstanceMethodExpr mainexpr) (or (= "setMacro" (.methodName mainexpr)) (and (= "addMethod" (.methodName mainexpr)) |