Skip to content

Commit 0a9009c

Browse files
mfikesswannodette
authored andcommitted
CLJS-2692: cljs.core.specs.alpha: Import list needs to require quote
1 parent 8cebc32 commit 0a9009c

File tree

1 file changed

+7
-12
lines changed

1 file changed

+7
-12
lines changed

src/main/cljs/cljs/core/specs/alpha.cljc

Lines changed: 7 additions & 12 deletions
Original file line numberDiff line numberDiff line change
@@ -201,23 +201,18 @@
201201
(s/fdef core/ns-special-form
202202
:args ::ns-form)
203203

204-
(defmacro ^:private quotable
205-
"Returns a spec that accepts both the spec and a (quote ...) form of the spec"
206-
[spec]
207-
`(s/or :spec ~spec :quoted-spec (s/cat :quote #{'quote} :spec ~spec)))
208-
209-
(s/def ::quotable-import-list
210-
(s/* (s/alt :class (quotable simple-symbol?)
211-
:package-list (quotable ::package-list))))
212-
213-
(s/fdef core/import
214-
:args ::quotable-import-list)
215-
216204
(defn- quoted
217205
"Returns a spec that accepts a (quote ...) form of the spec"
218206
[spec]
219207
(s/spec (s/cat :quote #{'quote} :spec spec)))
220208

209+
(s/def ::quoted-import-list
210+
(s/* (s/alt :class (quoted simple-symbol?)
211+
:package-list (quoted ::package-list))))
212+
213+
(s/fdef core/import
214+
:args ::quoted-import-list)
215+
221216
(s/fdef core/require
222217
:args (s/+ (s/alt :libspec (quoted ::libspec)
223218
:flag #{:reload :reload-all :verbose})))

0 commit comments

Comments
 (0)