Spec out do-definition

jank-lang · Feb 18, 2019 · 89b0017 · 89b0017
1 parent fa9426f
commit 89b0017
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/src/com/jeaye/jank/parse/spec.clj b/src/com/jeaye/jank/parse/spec.clj
@@ -79,6 +79,9 @@
 (s/def ::fn-definition (s/keys :req [::arguments
                                      ::body]
                                :opt [::name]))
+(s/def ::return any?) ; TODO: ::node
+(s/def ::do-definition (s/keys :req [::body
+                                     ::return]))
 
 (s/def ::node (s/or :nil (node (constant? :nil))
                     :integer (node (constant? :integer) (single? integer?))
@@ -96,7 +99,8 @@
                                               ::binding-definition)
                     :fn-definition (node (kind? :fn-definition)
                                          ::fn-definition)
-                    ;:do-definition do-definition
+                    :do-definition (node (kind? :do-definition)
+                                         ::do-definition)
                     ;:if if-expression
                     ;:application application
                     ))