From 7ef1ed8debc647ddef847ac85262b24bfe96c48a Mon Sep 17 00:00:00 2001 From: Joshua Miller Date: Wed, 21 Sep 2016 12:51:31 -0700 Subject: [PATCH] Port sequence check into conform. --- src/main/cljs/cljs/spec.cljs | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/main/cljs/cljs/spec.cljs b/src/main/cljs/cljs/spec.cljs index c1a70daa1a..bbf1497cd3 100644 --- a/src/main/cljs/cljs/spec.cljs +++ b/src/main/cljs/cljs/spec.cljs @@ -692,7 +692,8 @@ (assoc ret (nth (if conform-keys cv v) 0) (nth cv 1)))) identity] - (list? x) [empty addcv reverse] + (c/or (list? conform-into) (seq? conform-into) (c/and (not conform-into) (c/or (list? x) (seq? x)))) + [empty addcv reverse] :else [#(empty (c/or conform-into %)) addcv identity]))] (reify