summaryrefslogtreecommitdiffstats
path: root/match.c
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2011-10-01 11:35:06 -0700
committerKaz Kylheku <kaz@kylheku.com>2011-10-01 11:35:06 -0700
commita1349b59841b14b2a458b46ba36ed085becbdbd9 (patch)
tree9f177092174f66870c0199dc4076e3ea0d339948 /match.c
parentfb552521dfeca5bb1e36d5d0f85ed8e7585caffb (diff)
downloadtxr-a1349b59841b14b2a458b46ba36ed085becbdbd9.tar.gz
txr-a1349b59841b14b2a458b46ba36ed085becbdbd9.tar.bz2
txr-a1349b59841b14b2a458b46ba36ed085becbdbd9.zip
Regression bug fix: longest match variables broken by
2011-09-28 commit which introduced the double var match. * match.c (match_line): Handle case where modifier is t. * parser.y (var_op): Produce modifir as (t) rather than t.
Diffstat (limited to 'match.c')
-rw-r--r--match.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/match.c b/match.c
index f11c11dc..977f8cee 100644
--- a/match.c
+++ b/match.c
@@ -375,7 +375,7 @@ static val match_line(val bindings, val specline, val dataline,
specline = cons(pat, rest(specline));
continue;
}
- } else if (modifier) {
+ } else if (modifier && modifier != t) {
sem_error(spec_lineno, lit("invalid modifier ~s on variable ~s"),
modifier, sym, nao);
} else if (pat == nil) { /* no modifier, no elem -> to end of line */