* eval.c (lookup_var, lookup_fun): Reversing assoc arguments.

(eval_init): New intrinsics.

* hash.c (struct_hash): assoc_fun parameters reversed.
(gethash, gethash_f, gethash_n): Likewise.

* lib.c (assoc, assq): Reversing parameters.
(find_package, acons_new, acons_new_l, aconsq_new): Reversing
arguments to assoc adn assq.

* lib.h (assoc, assq): Declarations updated.

* match.c (dest_set, dest_bind, h_var, h_coll, h_parallel, h_fun,
subst_vars, do_txeval, v_next, v_parallel, v_gather, v_collect,
v_flatten, v_cat, v_output, v_filter, f_fun, match_funcall):
Reversing arguments to assoc.

* unwind.c (uw_get_func, uw_exception_subtype_p, uw_register_subtype):
Reversing arguments to assoc.

* txr.1: Blank sections created for new functions.

1 files changed, 4 insertions, 4 deletions

diff --git a/hash.c b/hash.c
index c2dee744..495cc0e3 100644
--- a/hash.c
+++ b/hash.c
@@ -53,7 +53,7 @@ struct hash {
   cnum count;
   val userdata;
   cnum (*hash_fun)(val);
-  val (*assoc_fun)(val list, val key);
+  val (*assoc_fun)(val key, val list);
   val *(*acons_new_l_fun)(val key, val *new_p, val *list);
 };
 
@@ -282,7 +282,7 @@ val gethash(val hash, val key)
 {
   struct hash *h = (struct hash *) cobj_handle(hash, hash_s);
   val chain = *vecref_l(h->table, num(h->hash_fun(key) % h->modulus));
-  val found = h->assoc_fun(chain, key);
+  val found = h->assoc_fun(key, chain);
   return cdr(found);
 }
 
@@ -290,7 +290,7 @@ val gethash_f(val hash, val key, val *found)
 {
   struct hash *h = (struct hash *) cobj_handle(hash, hash_s);
   val chain = *vecref_l(h->table, num(h->hash_fun(key) % h->modulus));
-  *found = h->assoc_fun(chain, key);
+  *found = h->assoc_fun(key, chain);
   return cdr(*found);
 }
 
@@ -298,7 +298,7 @@ val gethash_n(val hash, val key, val notfound_val)
 {
   struct hash *h = (struct hash *) cobj_handle(hash, hash_s);
   val chain = *vecref_l(h->table, num(h->hash_fun(key) % h->modulus));
-  val existing = h->assoc_fun(chain, key);
+  val existing = h->assoc_fun(key, chain);
   return if3(existing, cdr(existing), notfound_val);
 }