summaryrefslogtreecommitdiffstats
path: root/match.c
diff options
context:
space:
mode:
Diffstat (limited to 'match.c')
-rw-r--r--match.c14
1 files changed, 5 insertions, 9 deletions
diff --git a/match.c b/match.c
index 42f42b90..7bda5f4d 100644
--- a/match.c
+++ b/match.c
@@ -2555,18 +2555,14 @@ static val v_deffilter(match_files_ctx c, match_files_ctx *cout)
if (!all_satisfy(table, andf(func_n1(listp),
chain(func_n1(length),
- curry_12_2(func_n2(eq), two),
- nao),
- chain(func_n1(first),
- func_n1(stringp),
- nao),
- chain(func_n1(second),
- func_n1(stringp),
- nao),
+ curry_12_1(func_n2(ge), two), nao),
+ chain(func_n1(rest),
+ curry_123_1(func_n3(all_satisfy),
+ func_n1(stringp), nil), nao),
nao),
nil))
sem_error(spec_linenum,
- lit("deffilter arguments must be string pairs"),
+ lit("deffilter arguments must be lists of at least two strings"),
nao);
register_filter(sym, table);
/* TODO: warn about replaced filter. */