Removing useless hash table.

* parser.h (ln_to_forms_hash): Declaration removed.

* parser.l (ln_to_forms_hash): Variable removed.
(parse_init): Initialization and protection of ln_to_forms_hash
removed.

* parser.y (rl): Update of ln_to_forms_hash removed.

* txr.1:

4 files changed, 15 insertions, 5 deletions

diff --git a/ChangeLog b/ChangeLog
index 94bebc0e..160ab0b0 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,19 @@
 2011-11-30  Kaz Kylheku  <kaz@kylheku.com>
 
+	Removing useless hash table.
+
+	* parser.h (ln_to_forms_hash): Declaration removed.
+
+	* parser.l (ln_to_forms_hash): Variable removed.
+	(parse_init): Initialization and protection of ln_to_forms_hash
+	removed.
+
+	* parser.y (rl): Update of ln_to_forms_hash removed.
+
+	* txr.1:
+
+2011-11-30  Kaz Kylheku  <kaz@kylheku.com>
+
 	* configure (extra_debugging): New variable. EXTRA_DEBUGGING
 	conditionally generated in config.h.
 
diff --git a/parser.h b/parser.h
index 101acba7..81e43c31 100644
--- a/parser.h
+++ b/parser.h
@@ -30,7 +30,6 @@ extern val yyin_stream;
 extern const wchar_t *spec_file;
 extern val spec_file_str;
 extern val form_to_ln_hash;
-extern val ln_to_forms_hash;
 int yyparse(void);
 val get_spec(void);
 void yyerror(const char *s);
diff --git a/parser.l b/parser.l
index a4649473..cee0d834 100644
--- a/parser.l
+++ b/parser.l
@@ -68,7 +68,6 @@ int opt_loglevel = 1;   /* 0 - quiet; 1 - normal; 2 - verbose */
 int errors;
 
 val form_to_ln_hash;
-val ln_to_forms_hash;
 
 static val prepared_error_message;
 
@@ -649,8 +648,7 @@ val source_loc(val form)
 void parse_init(void)
 {
   protect(&yyin_stream, &prepared_error_message,
-          &form_to_ln_hash, &ln_to_forms_hash, (val *) 0);
+          &form_to_ln_hash, (val *) 0);
 
   form_to_ln_hash = make_hash(t, nil, nil);
-  ln_to_forms_hash = make_hash(nil, t, nil);
 }
diff --git a/parser.y b/parser.y
index 00d47b09..6df6452e 100644
--- a/parser.y
+++ b/parser.y
@@ -907,7 +907,6 @@ static val choose_quote(val quoted_form)
 val rl(val form, val lineno)
 {
   sethash(form_to_ln_hash, form, lineno);
-  pushhash(ln_to_forms_hash, lineno, form);
   return form;
 }