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 | |
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.
-rw-r--r-- | ChangeLog | 2 | ||||
-rw-r--r-- | match.c | 3 |
2 files changed, 2 insertions, 3 deletions
@@ -1,4 +1,4 @@ -2010-01-24 Kaz Kylheku <kkylheku@gmail.com> +2010-01-25 Kaz Kylheku <kkylheku@gmail.com> * match.c (match_files): Workaround for GC issue discovered on Red Hat EL 4 with gcc 3.4.3. @@ -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++; |