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, 1 insertions, 1 deletions

diff --git a/struct.c b/struct.c
index 46b1bcab..3b16da7c 100644
--- a/struct.c
+++ b/struct.c
@@ -1596,7 +1596,7 @@ val static_slot_type_reg(val slot, val strct)
 
 static_def(struct cobj_ops struct_type_ops =
            cobj_ops_init(eq, struct_type_print, struct_type_destroy,
-                         struct_type_mark, cobj_hash_op))
+                         struct_type_mark, cobj_eq_hash_op))
 
 static_def(struct cobj_ops struct_inst_ops =
            cobj_ops_init_ex(struct_inst_equal, struct_inst_print,