diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2010-01-25 09:22:59 -0800 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2010-01-25 09:22:59 -0800 |
commit | 9949e6993e1a11a9ba2231a0cc4d1cb210640682 (patch) | |
tree | fcbc8a34286495537b7b7cf8fd9f179f09bbd469 /match.c | |
parent | 5ebc3de217c0601355b2df86ae26421264fe7c5e (diff) | |
download | txr-9949e6993e1a11a9ba2231a0cc4d1cb210640682.tar.gz txr-9949e6993e1a11a9ba2231a0cc4d1cb210640682.tar.bz2 txr-9949e6993e1a11a9ba2231a0cc4d1cb210640682.zip |
Fix screwup in previous change: value treated as a cons
in a code path where it sometimes isn't.
Diffstat (limited to 'match.c')
-rw-r--r-- | match.c | 3 |
1 files changed, 1 insertions, 2 deletions
@@ -1252,12 +1252,11 @@ repeat_spec_same_data: data = new_data; data_lineno = new_lineno; + *car_l(success) = nil; } else { debuglf(spec_linenum, lit("collect consumed entire file"), nao); data = nil; } - - *car_l(success) = nil; } else { data = rest(data); data_lineno++; |