summaryrefslogtreecommitdiffstats
path: root/match.c
diff options
context:
space:
mode:
Diffstat (limited to 'match.c')
-rw-r--r--match.c4
1 files changed, 3 insertions, 1 deletions
diff --git a/match.c b/match.c
index 0bc40838..0f1583f1 100644
--- a/match.c
+++ b/match.c
@@ -381,8 +381,10 @@ static val dest_bind(val spec, val bindings, val pattern,
return t;
}
return cons(cons(pattern, value), bindings);
+ } else if (pattern) {
+ return t;
} else {
- return funcall2(testfun, pattern, value) ? bindings : t;
+ return bindings;
}
} else if (consp(pattern)) {
val piter = pattern, viter = value;