* regex.c (reg_derivative_list): Bugfix: wrong algebra,

taking a double derivative of the first item.

2 files changed, 6 insertions, 1 deletions

diff --git a/ChangeLog b/ChangeLog
index 5d957747..c7241b18 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,10 @@
 2010-01-15  Kaz Kylheku  <kkylheku@gmail.com>
 
+	* regex.c (reg_derivative_list): Bugfix: wrong algebra,
+	taking a double derivative of the first item.
+
+2010-01-15  Kaz Kylheku  <kkylheku@gmail.com>
+
 	* txr.1: Fix accidental edit garbage.
 
 2010-01-14  Kaz Kylheku  <kkylheku@gmail.com>
diff --git a/regex.c b/regex.c
index 5e5fd66f..61d25914 100644
--- a/regex.c
+++ b/regex.c
@@ -1232,7 +1232,7 @@ static val reg_derivative_list(val exp_list, val ch)
         return cons(compound_s, rest(exp_list));
       else
         return cons(compound_s, 
-                    cons(reg_derivative(d_first, ch), rest(exp_list)));
+                    cons(d_first, rest(exp_list)));
     }
   } else {
     return reg_derivative(first(exp_list), ch);