From eb1b4a67892471ec0aeef8e27e2579eff08e6a98 Mon Sep 17 00:00:00 2001 From: davidnolen Date: Wed, 20 Nov 2024 14:16:19 -0800 Subject: [PATCH] * :js-object :keys are _not_ nodes --- src/test/clojure/cljs/analyzer/spec_tests.clj | 2 +- src/test/clojure/cljs/analyzer/specs.cljc | 3 +-- 2 files changed, 2 insertions(+), 3 deletions(-) diff --git a/src/test/clojure/cljs/analyzer/spec_tests.clj b/src/test/clojure/cljs/analyzer/spec_tests.clj index 82509afbd..57134c703 100644 --- a/src/test/clojure/cljs/analyzer/spec_tests.clj +++ b/src/test/clojure/cljs/analyzer/spec_tests.clj @@ -145,7 +145,7 @@ (is (= :js-array (:op node))) (is (s/valid? ::a/node node)))) -#_(deftest test-js-object +(deftest test-js-object (let [node (analyze ns-env (ana-api/with-state (ana-api/empty-state) (first (ana-api/forms-seq (StringReader. "#js {:foo 1 :bar 2}")))))] diff --git a/src/test/clojure/cljs/analyzer/specs.cljc b/src/test/clojure/cljs/analyzer/specs.cljc index c721a0a3f..ec5079bf9 100644 --- a/src/test/clojure/cljs/analyzer/specs.cljc +++ b/src/test/clojure/cljs/analyzer/specs.cljc @@ -166,7 +166,7 @@ (defmethod node :js-object [_] (s/merge ::base (s/keys - :req-un [::keys ::vals]))) + :req-un [::vals]))) (s/def ::ns symbol?) @@ -205,7 +205,6 @@ (s/keys :req-un [::bindings ::body]))) -(s/def ::keys (s/* ::node)) (s/def ::vals (s/* ::node)) (defmethod node :map [_]