luciano/specter
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

fix throw-illegal in cljs code

Browse source
This commit is contained in:
nathanmarz 2018-12-03 14:29:58 -05:00
parent c65b31181a
commit 8764a4b2b6
2 changed files with 9 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
project.clj
View file

@ -31,7 +31,7 @@
:profiles {:dev {:dependencies
[[org.clojure/test.check "0.9.0"]
[org.clojure/clojure "1.9.0"]
[org.clojure/clojurescript "1.10.126"]]}
[org.clojure/clojurescript "1.10.439"]]}
:test {:dependencies [[org.clojure/clojure "1.7.0"]]}}

12
src/clj/com/rpl/specter/impl.cljc
View file

@ -1,7 +1,8 @@
(ns com.rpl.specter.impl
#?(:cljs (:require-macros
[com.rpl.specter.util-macros
:refer [doseqres mk-comp-navs mk-late-fn mk-late-fn-records]]))
:refer [doseqres mk-comp-navs mk-late-fn mk-late-fn-records]]
[com.rpl.specter.impl :refer [throw-illegal]]))
;; workaround for cljs bug that emits warnings for vars named the same as a
;; private var in cljs.core (in this case `NONE`, added as private var to
;; cljs.core with 1.9.562)
@ -56,11 +57,14 @@
#?(
:clj
(defmacro throw-illegal [& args]
`(throw* IllegalArgumentException ~@args))
(let [platform (if (contains? &env :locals) :cljs :clj)]
(if (= platform :clj)
`(throw* IllegalArgumentException ~@args)
`(com.rpl.specter.impl/throw-illegal* ~@args)
)))
:cljs
(defn throw-illegal [& args]
(defn throw-illegal* [& args]
(throw (js/Error. (apply str args)))))