summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2010-01-25 09:22:59 -0800
committerKaz Kylheku <kaz@kylheku.com>2010-01-25 09:22:59 -0800
commit9949e6993e1a11a9ba2231a0cc4d1cb210640682 (patch)
treefcbc8a34286495537b7b7cf8fd9f179f09bbd469
parent5ebc3de217c0601355b2df86ae26421264fe7c5e (diff)
downloadtxr-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--ChangeLog2
-rw-r--r--match.c3
2 files changed, 2 insertions, 3 deletions
diff --git a/ChangeLog b/ChangeLog
index 44427204..a29d2244 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -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.
diff --git a/match.c b/match.c
index bf58e416..65b1b8cb 100644
--- a/match.c
+++ b/match.c
@@ -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++;