* hash.c (hash_mark, hash_grow, make_similar_hash,

copy_hash, gethash_l, gethash, gethash_f, gethash_n,
hash_count, hash_next, hash_eql, hash_equal): Use
num_fast instead of num.
(make_hash): An attempt to make a weak-keys hash that has
equal-based keys is nonsensical; it is now diagnosed with
an exception. Use num_fast instead of num.
(hash_process_weak): Call breakpt whenever the weak object(s) due to
which entries are being deleted match the value in break_obj.
Use num_fast instead of num.

* parser.l (parse_init): Bugfix: the forms_to_ln_hash
was equal-based, which makes no sense.

1 files changed, 1 insertions, 1 deletions

diff --git a/parser.l b/parser.l
index 39a825a3..429fb779 100644
--- a/parser.l
+++ b/parser.l
@@ -805,7 +805,7 @@ void parse_init(void)
   protect(&yyin_stream, &prepared_error_message,
           &form_to_ln_hash, (val *) 0);
 
-  form_to_ln_hash = make_hash(t, nil, t);
+  form_to_ln_hash = make_hash(t, nil, nil);
 }
 
 void parse_reset(val spec_file)