* add basic do

* failing let, due to missing :form

Author: swannodette

src/test/clojure/cljs/analyzer/spec_tests.clj

@@ -16,8 +16,22 @@
   (is (s/valid? ::a/node (analyze ns-env '(if true true))))
   (is (s/valid? ::a/node (analyze ns-env '(if true true false)))))
 
+(deftest test-do
+  (is (s/valid? ::a/node (analyze ns-env '(do))))
+  (is (s/valid? ::a/node (analyze ns-env '(do 1))))
+  (is (s/valid? ::a/node (analyze ns-env '(do 1 2 3)))))
+
+(deftest test-let
+  (is (s/valid? ::a/node (analyze ns-env '(let []))))
+  ;(is (s/valid? ::a/node (analyze ns-env '(let [x 1]))))
+  ;(is (s/valid? ::a/node (analyze ns-env '(let [x 1] x))))
+  )
+
 (comment
 
   (test/run-tests)
 
+  ;; binding is missing :form
+  (s/explain ::a/node (analyze ns-env '(let [x 1])))
+
   )

src/test/clojure/cljs/analyzer/specs.cljc

@@ -151,7 +151,7 @@
     (s/keys
       :req-un [::t ::body])))
 
-(s/def ::statements ::node)
+(s/def ::statements (s/* ::node))
 (s/def ::ret ::node)
 (s/def ::body? boolean?)