File tree Expand file tree Collapse file tree 1 file changed +9
-4
lines changed Expand file tree Collapse file tree 1 file changed +9
-4
lines changed Original file line number Diff line number Diff line change 347
347
(map? v)
348
348
(has-attr? target-item k))
349
349
(let [att-val (get-attr target-item k)]
350
+ (ns-unmap ns-symbol (symbol k))
350
351
(intern ns-symbol
351
352
(with-meta (symbol k)
352
353
(if no-arglists?
370
371
(when (map? v)
371
372
(cond
372
373
(contains? (:flags v) :callable? )
373
- (intern ns-symbol (with-meta (symbol k) v)
374
- (fn [inst & args]
375
- (apply (get-attr inst k) args)))
374
+ (do
375
+ (ns-unmap ns-symbol (symbol k))
376
+ (intern ns-symbol (with-meta (symbol k) v)
377
+ (fn [inst & args]
378
+ (apply (get-attr inst k) args))))
376
379
(contains? v :value )
377
- (intern ns-symbol (with-meta (symbol k) v) (:value v)))))
380
+ (do
381
+ (ns-unmap ns-symbol (symbol k))
382
+ (intern ns-symbol (with-meta (symbol k) v) (:value v))))))
378
383
ns-symbol )
You can’t perform that action at this time.
0 commit comments