From 705be6966138597d2fac3edb99fad75888cbe8dc Mon Sep 17 00:00:00 2001 From: Scott Richmond Date: Thu, 20 Jun 2024 18:00:44 -0400 Subject: [PATCH] validation error on empty blocks --- src/validate.janet | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/src/validate.janet b/src/validate.janet index 44328e0..fdacbab 100644 --- a/src/validate.janet +++ b/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))