only clear data structures on a parse error

diff --git a/parse.yacc b/parse.yacc
index 1e349b42e82297fa5a2e82cd7cc34c545938d3e1..5854c760023b210d04144883877ab57b9cca4fcc 100644 (file)
--- a/parse.yacc
+++ b/parse.yacc
@@ -113,8 +113,10 @@ char *s;
 yywrap()
 {
     /* reset values so we can reparse cleanly */
-    reset_aliases();
-    top = 0;
+    if (parse_error) {
+       reset_aliases();
+       top = 0;
+    }
 
     return(1);
 }