File tree Expand file tree Collapse file tree
Expand file tree Collapse file tree Original file line number Diff line number Diff line change 670670 gignore (gensym " ignore__" )
671671 defaults (:or b)
672672 defaults-as (:defaults b)
673- _ (core/when (core/and defaults-as (not defaults ))
673+ _ (core/when (core/and defaults-as (core/ not defaults ))
674674 #?(:clj (throw (new IllegalArgumentException " Can't specify :defaults without :or" ))
675675 :cljs (throw (new js/Error " Can't specify :defaults without :or" ))))
676676 b (dissoc b :defaults )
682682 mkn (name mk)]
683683 (core/cond
684684 (.startsWith mkn " keys" ) #(keyword (core/or mkns (namespace %)) (name %))
685- (.startsWith mkn " syms" ) #(core/list `quote (symbol (core/or mkns (namespace %)) (name %)))
685+ (.startsWith mkn " syms" ) #(core/list `quote (core/ symbol (core/or mkns (namespace %)) (name %)))
686686 (.startsWith mkn " strs" ) core/str
687687 :else (throw #?(:clj (new Exception (core/str " Unsupported map directive: " mk))
688688 :cljs (new js/Error (core/str " Unsupported map directive: " mk)))))))
700700 localize (core/fn [bb]
701701 (if #?(:clj (core/instance? clojure.lang.Named bb)
702702 :cljs (cljs.core/implements? INamed bb))
703- (with-meta (symbol nil (name bb)) (meta bb)) bb))
703+ (with-meta (core/ symbol nil (name bb)) (meta bb)) bb))
704704 push1 (core/fn [ret bb bk req?]
705705 (core/let [getter (if req? `req! `get)
706706 local (localize bb)
You can’t perform that action at this time.
0 commit comments