summaryrefslogtreecommitdiffstats
path: root/unwind.c
diff options
context:
space:
mode:
Diffstat (limited to 'unwind.c')
-rw-r--r--unwind.c10
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);