* 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, 5 insertions, 5 deletions

diff --git a/unwind.c b/unwind.c
index 33acfb79..7abd4e97 100644
--- a/unwind.c
+++ b/unwind.c
@@ -137,7 +137,7 @@ val uw_get_func(val sym)
 
   for (env = uw_find_env(); env != 0; env = env->ev.up_env) {
     if (env->ev.func_bindings) {
-      val found = assoc(env->ev.func_bindings, sym);
+      val found = assoc(sym, env->ev.func_bindings);
       if (found)
         return cdr(found);
     }
@@ -233,7 +233,7 @@ val uw_exception_subtype_p(val sub, val sup)
   if (sub == nil || sup == t || sub == sup) {
     return t;
   } else {
-    val entry = assoc(exception_subtypes, sub);
+    val entry = assoc(sub, exception_subtypes);
     return memq(sup, entry) ? t : nil;
   }
 }
@@ -327,9 +327,9 @@ val type_mismatch(val fmt, ...)
 
 val uw_register_subtype(val sub, val sup)
 {
-  val t_entry = assoc(exception_subtypes, t);
-  val sub_entry = assoc(exception_subtypes, sub);
-  val sup_entry = assoc(exception_subtypes, sup);
+  val t_entry = assoc(t, exception_subtypes);
+  val sub_entry = assoc(sub, exception_subtypes);
+  val sup_entry = assoc(sup, exception_subtypes);
 
   assert (t_entry != 0);