From 56a67215e5890ad4fe445d5c65eec0825c4cce22 Mon Sep 17 00:00:00 2001
From: davidnolen <david.nolen@gmail.com>
Date: Wed, 23 Oct 2024 17:09:23 -0400
Subject: [PATCH] * typos * (wip)

---
 src/test/clojure/cljs/analyzer/specs.cljc | 52 ++++++++++++++++++-----
 1 file changed, 41 insertions(+), 11 deletions(-)

diff --git a/src/test/clojure/cljs/analyzer/specs.cljc b/src/test/clojure/cljs/analyzer/specs.cljc
index 42717c49d..65868c7ab 100644
--- a/src/test/clojure/cljs/analyzer/specs.cljc
+++ b/src/test/clojure/cljs/analyzer/specs.cljc
@@ -33,7 +33,7 @@
 (s/def ::init ::node)
 (s/def ::shadow ::node)
 
-(defmethod node ::binding [_]
+(defmethod node :binding [_]
   (s/merge
     ::base
     (s/keys
@@ -84,6 +84,13 @@
     (s/keys
       :req-un [::keys ::vals])))
 
+(s/def ::ns symbol?)
+
+(defmethod node :js-var [_]
+  (s/merge ::base
+    (s/keys
+      :req-un [::ns ::name])))
+
 (defmethod node :js-array [_]
   (s/merge ::base
     (s/keys
@@ -101,29 +108,29 @@
 (s/def ::nodes (s/* ::node))
 (s/def ::default ::node)
 
-(defmethod node ::case [_]
+(defmethod node :case [_]
   (s/merge ::base
     (s/keys
       :req-un [::test ::nodes ::default])))
 
-(defmethod node ::case-node [_]
+(defmethod node :case-node [_]
   (s/merge ::base
     (s/keys
       :req-un [::tests ::then])))
 
-(defmethod node ::case-test [_]
+(defmethod node :case-test [_]
   (s/merge ::base
     (s/keys
       :req-un [::test])))
 
-(defmethod node ::case-then [_]
+(defmethod node :case-then [_]
   (s/merge ::base
     (s/keys
       :req-un [::then])))
 
 (s/def ::the-var ::node)
 
-(defmethod node ::def [_]
+(defmethod node :def [_]
   (s/merge ::base
     (s/keys
       :req-un [::name]
@@ -132,12 +139,12 @@
 (s/def ::body ::node)
 (s/def ::t symbol?)
 
-(defmethod node ::defrecord [_]
+(defmethod node :defrecord [_]
   (s/merge ::base
     (s/keys
       :req-un [::t ::body])))
 
-(defmethod node ::deftype [_]
+(defmethod node :deftype [_]
   (s/merge ::base
     (s/keys
       :req-un [::t ::body])))
@@ -146,7 +153,7 @@
 (s/def ::ret ::node)
 (s/def ::body? boolean?)
 
-(defmethod node ::do [_]
+(defmethod node :do [_]
   (s/merge ::base
     (s/keys
       :req-un [::statements ::ret]
@@ -156,7 +163,7 @@
 (s/def ::max-fixed-arity int?)
 (s/def ::methods (s/+ ::node))
 
-(defmethod node ::fn [_]
+(defmethod node :fn [_]
   (s/merge ::base
     (s/keys
       :req-un [::variadic? ::max-fixed-arity ::methods]
@@ -165,11 +172,34 @@
 (s/def ::fixed-arity int?)
 (s/def ::params (s/* ::node))
 
-(defmethod node ::fn-method [_]
+(defmethod node :fn-method [_]
   (s/merge ::base
     (s/keys
       :req-un [::fixed-arity ::params ::body])))
 
+(s/def ::method symbol?)
+(s/def ::target ::node)
+(s/def ::args (s/* ::node))
+
+(defmethod node :host-call [_]
+  (s/merge ::base
+    (s/keys
+      :req-un [::method ::target ::args])))
+
+(s/def ::field symbol?)
+
+(defmethod node :host-field [_]
+  (s/merge ::base
+    (s/keys
+      :req-un [::field ::target])))
+
+(s/def ::fn ::node)
+
+(defmethod node :invoke [_]
+  (s/merge ::base
+    (s/keys
+      :req-un [::fn ::args])))
+
 (comment
 
   (s/valid? ::node 1)