Replacing acons_new_l and aconsq_new_l interfaces with ones

that return the new or old cons cell rather than a pointer
to its cdr field.

* eval.c (transform_op): use of acons_new_l replaced with
acons_new_c.

* hash.c (struct hash): acons_new_l_fun member replaced
with acons_new_c_fun.
(make_hash, make_similar_hash): initialize acons_new_l_fun
member using either acons_new_c or aconsql_new_c.
(gethash_l): function becomes an inline in hash.h.
(gethash_c): new function, based on gethash_l.
(inhash, gethash_n): updated w.r.t struct hash change.

* hash.h (gethash_c): declared.
(gethash_l): becomes an inline wrapper for gethash_c.

* lib.c (acons_new_l, aconsql_new_l): functions removed.
(acons_new_c, aconsql_new_c): new functions.
(obj_init): use gethash_c and rplacd instead of gethash_l
and set.

* lib.h (acons_new_l, aconsql_new_l): declarations removed.
(acons_new_c, aconsql_new_c): declared.

1 files changed, 2 insertions, 2 deletions

diff --git a/lib.h b/lib.h
index 77ca800d..32d26eb3 100644
--- a/lib.h
+++ b/lib.h
@@ -662,9 +662,9 @@ val assoc(val key, val list);
 val assql(val key, val list);
 val acons(val car, val cdr, val list);
 val acons_new(val key, val value, val list);
-val *acons_new_l(val key, val *new_p, val *list);
+val acons_new_c(val key, val *new_p, val *list);
 val aconsql_new(val key, val value, val list);
-val *aconsql_new_l(val key, val *new_p, val *list);
+val aconsql_new_c(val key, val *new_p, val *list);
 val alist_remove(val list, val keys);
 val alist_remove1(val list, val key);
 val alist_nremove(val list, val keys);