diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2011-10-01 11:35:06 -0700 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2011-10-01 11:35:06 -0700 |
commit | a1349b59841b14b2a458b46ba36ed085becbdbd9 (patch) | |
tree | 9f177092174f66870c0199dc4076e3ea0d339948 /match.c | |
parent | fb552521dfeca5bb1e36d5d0f85ed8e7585caffb (diff) | |
download | txr-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.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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 */ |