From 9700430895a9b76d113b9b77ef226dfee711830c Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sat, 1 Feb 2014 03:45:49 -0800 Subject: * 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. --- parser.l | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'parser.l') 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) -- cgit v1.2.3