fix leak

[m6w6/ext-psi] / src / parser_proc.y

diff --git a/src/parser_proc.y b/src/parser_proc.y
index 59477baf28ef2ac830a96c61b32d0ec36b900377..43ae161d96bc5bc07848575c95d9064d60e69365 100644 (file)
--- a/src/parser_proc.y
+++ b/src/parser_proc.y
@@ -376,6 +376,10 @@ let_func(func) ::= BOOLVAL(T). {
        func = init_let_func(T->type, T->text, 0);
        free(T);
 }
+let_func(func) ::= ARRVAL(T). {
+       func = init_let_func(T->type, T->text, 0);
+       free(T);
+}
 
 %type set_stmt {set_stmt*}
 set_stmt(set) ::= SET impl_var(var) EQUALS set_value(val) EOS. {