Replacing uses of the eq function which are used only as C booleans,

with just using the == operator.

Removing cobj_equal_op since it's indistinguishable from eq.

Streamlining missingp and null_or_missing_p.

* eval.c (transform_op): eq to ==.
(c_var_ops): cobj_equal_op to eq.

* filter.c (trie_compress, trie_lookup_feed_char, filter_string_tree,
html_hex_continue, html_dec_continue): eq to ==.

* hash.c (hash_iter_ops): cobj_equal to eq.

* lib.c (countq, getplist, getplist_f, search_str_tree,
posq): eq to ==.
(cobj_equal_op): Function removed.

* lib.h (cobj_equal_op): Declaration removed.
(missingp): Becomes a simple macro that yields a C boolean instead
of t/nil val, because it's only used that way.
(null_or_missing_p): Becomes inline function returning int.

* match.c (v_output): eq to ==.

* rand.c (random_state_ops): cobj_equal_op to eq.

* regex.c (char_set_obj_ops, regex_obj_ops): cobj_equal_op to eq.
(reg_derivative): Silly if3 expression replaced by null.
(regexp): Redundant if2 expression wrapped around eq removed.

* stream.c (null_ops, stdio_ops, tail_ops, pipe_ops, string_in_ops,
byte_in_ops, string_out_ops, strlist_out_ops, dir_ops,
cat_stream_ops): cobj_equal_op to eq.

* syslog.c (syslog_strm_ops): cobj_equal_op to eq.

1 files changed, 10 insertions, 10 deletions

diff --git a/stream.c b/stream.c
index 65fec6fd..a0bcf33e 100644
--- a/stream.c
+++ b/stream.c
@@ -87,7 +87,7 @@ static val null_get_prop(val stream, val ind)
 }
 
 static struct strm_ops null_ops = {
-  { cobj_equal_op,
+  { eq,
     null_stream_print,
     cobj_destroy_stub_op,
     cobj_mark_op,
@@ -419,7 +419,7 @@ static val stdio_close(val stream, val throw_on_error)
 }
 
 static struct strm_ops stdio_ops = {
-  { cobj_equal_op,
+  { eq,
     stdio_stream_print,
     stdio_stream_destroy,
     stdio_stream_mark,
@@ -599,7 +599,7 @@ static val tail_get_byte(val stream)
 
 
 static struct strm_ops tail_ops = {
-  { cobj_equal_op,
+  { eq,
     stdio_stream_print,
     stdio_stream_destroy,
     stdio_stream_mark,
@@ -689,7 +689,7 @@ static val pipe_close(val stream, val throw_on_error)
 }
 
 static struct strm_ops pipe_ops = {
-  { cobj_equal_op,
+  { eq,
     stdio_stream_print,
     stdio_stream_destroy,
     stdio_stream_mark,
@@ -791,7 +791,7 @@ static val string_in_get_prop(val stream, val ind)
 }
 
 static struct strm_ops string_in_ops = {
-  { cobj_equal_op,
+  { eq,
     cobj_print_op,
     cobj_destroy_stub_op,
     string_in_stream_mark,
@@ -852,7 +852,7 @@ static val byte_in_unget_byte(val stream, int byte)
 }
 
 static struct strm_ops byte_in_ops = {
-  { cobj_equal_op,
+  { eq,
     cobj_print_op,
     byte_in_stream_destroy,
     cobj_mark_op,
@@ -980,7 +980,7 @@ static val string_out_put_byte(val stream, int ch)
 }
 
 static struct strm_ops string_out_ops = {
-  { cobj_equal_op,
+  { eq,
     cobj_print_op,
     string_out_stream_destroy,
     cobj_mark_op,
@@ -1053,7 +1053,7 @@ static val strlist_out_put_char(val stream, val ch)
 }
 
 static struct strm_ops strlist_out_ops = {
-  { cobj_equal_op,
+  { eq,
     cobj_print_op,
     cobj_destroy_stub_op,
     strlist_mark,
@@ -1127,7 +1127,7 @@ static val dir_close(val stream, val throw_on_error)
 }
 
 static struct strm_ops dir_ops = {
-  { cobj_equal_op,
+  { eq,
     cobj_print_op,
     common_destroy,
     cobj_mark_op,
@@ -2334,7 +2334,7 @@ static val cat_get_prop(val stream, val ind)
 }
 
 static struct strm_ops cat_stream_ops = {
-  { cobj_equal_op,
+  { eq,
     cat_stream_print,
     cobj_destroy_stub_op,
     cobj_mark_op,