validation error on empty blocks

src/validate.janet

@@ -74,6 +74,10 @@ Deferred until a later iteration of Ludus:
 (defn- block [validator]
  (def ast (validator :ast))
  (def data (ast :data))
+ (when (= 0 (length data))
+  (array/push (validator :errors)
+   {:node ast :msg "blocks may not be empty"})
+  (break validator))
  (def status (validator :status))
  (set (status :toplevel) nil)
  (def tail? (status :tail))