Permalink
Browse files

for variadic invokes we need to munge info, not the name so that we get

shadowing information
  • Loading branch information...
1 parent c979df1 commit aa8d69ef69d76f9622d72c4b8d85cb6f978d8a83 @swannodette swannodette committed Oct 6, 2013
Showing with 2 additions and 2 deletions.
  1. +2 −2 src/clj/cljs/compiler.clj
@@ -679,15 +679,15 @@
;; direct dispatch to variadic case
(and variadic? (> arity mfa))
[(update-in f [:info :name]
- (fn [name] (symbol (str (munge name) ".cljs$core$IFn$_invoke$arity$variadic"))))
+ (fn [name] (symbol (str (munge info) ".cljs$core$IFn$_invoke$arity$variadic"))))
{:max-fixed-arity mfa}]
;; direct dispatch to specific arity case
:else
(let [arities (map count mps)]
(if (some #{arity} arities)
[(update-in f [:info :name]
- (fn [name] (symbol (str (munge name) ".cljs$core$IFn$_invoke$arity$" arity)))) nil]
+ (fn [name] (symbol (str (munge info) ".cljs$core$IFn$_invoke$arity$" arity)))) nil]
[f nil]))))
[f nil])]
(emit-wrap env

0 comments on commit aa8d69e

Please sign in to comment.