Disallow deleting SYMTAB and its elements (#43)

1 files changed, 3 insertions, 0 deletions

diff --git a/run.c b/run.c
index 2dfb3e6..36e5e85 100644
--- a/run.c
+++ b/run.c
@@ -512,6 +512,9 @@ Cell *awkdelete(Node **a, int n)	/* a[0] is symtab, a[1] is list of subscripts *
 	int nsub;
 
 	x = execute(a[0]);	/* Cell* for symbol table */
+	if (x == symtabloc) {
+		FATAL("cannot delete SYMTAB or its elements");
+	}
 	if (!isarr(x))
 		return True;
 	if (a[1] == 0) {	/* delete the elements, not the table */