cobj: rename poorly named default operation.

Renaming cobj_hash_op to cobj_eq_hash_op. This function is
only appropriate to use with COBJ objects which use
eq as their equal funtion. I've spotted one instance of an
inappropriate use which have to be addressed by a different
commit: the equal function is other than eq, but cobj_hash_op
is used for the equal hash.

* lib.h (cobj_hash_op): Declaration renamed to
cobj_eq_hash_op.

* hash.c (cobj_hash_op): Renamed to cobj_eq_hash_op.
(hash_iter_ops): Refer to renamed cobj_hash_eq_op.

* ffi.c (ffi_type_builtin_ops, ffi_type_struct_ops,
ffi_type_ptr_ops, ffi-closure_ops, ffi_call_desc_ops):
Likewise.

* lib.c (cptr_ops): Likewise.

* parser.c (parser_ops): Likewise.

* rand.c (random_state_ops): Likewise.

* regex.c (char_set_ops, regex_obj_ops): Likewise.

* socket.c (dgram_strm_ops): Likewise.

* stream.c (null_ops, stdio_ops, tail_ops, pipe_ops, dir_ops,
string_in_ops, byte_in_ops, strlist_in_ops, string_out_ops,
strlist_out_ops, cat_stream_ops, record_adapter_ops):
Likewise.

* struct.c (struct_type_ops): Likewise.

* sysif.c (cptr_dl_ops): Likewise.

* syslog.c (syslog_strm_ops): Likewise.

* unwind.c (cont_ops): Likewise.

1 files changed, 2 insertions, 2 deletions

diff --git a/hash.c b/hash.c
index 8d27892f..2b838ae6 100644
--- a/hash.c
+++ b/hash.c
@@ -274,7 +274,7 @@ static cnum eql_hash(val obj, int *count)
   abort();
 }
 
-cnum cobj_hash_op(val obj, int *count)
+cnum cobj_eq_hash_op(val obj, int *count)
 {
   (void) count;
 
@@ -843,7 +843,7 @@ static struct cobj_ops hash_iter_ops = cobj_ops_init(eq,
                                                      cobj_print_op,
                                                      cobj_destroy_free_op,
                                                      hash_iter_mark,
-                                                     cobj_hash_op);
+                                                     cobj_eq_hash_op);
 
 val hash_begin(val hash)
 {