check global decl names are not reserved

1 files changed, 3 insertions, 0 deletions

diff --git a/pez.c b/pez.c
index b8a9ebf..790ddab 100644
--- a/pez.c
+++ b/pez.c
@@ -3742,6 +3742,9 @@ stmt(Comp *cm)
             return comperr(cm, c, "expected identifier"), 0;
         }
         TRY(readident(cm, name, sizeof name));
+        if (reserved(name)) {
+            return comperr(cm, *name, "'%s' is a reserved keyword", name), 0;
+        }
         TRY(expectspchr(cm, '='));
         TRY(box_str(cm->cx, &key, name, strlen(name)));
         TRY(compconst(cm, key));