Implemented new last clause for collect and coll.

Bugfix in cases inside coll: was not collecting bindings.
Bugfix for until inside coll: was not seeing bindings
from main clause.

* lib.c (ldiff): New function.

* lib.h (ldiff): Declared.

* match.c (match_line): Implemented last clause. Fixed cases
handling by moving misplaced termination check.
(match_files): Implemented last clause.

* parser.y (until_last): New nonterminal symbol.
(collect_clause): Refactored syntax to support until and last.
(elem): Likewise.

* txr.1: Updated.

1 files changed, 12 insertions, 0 deletions

diff --git a/lib.c b/lib.c
index 932fecde..29e661d2 100644
--- a/lib.c
+++ b/lib.c
@@ -354,6 +354,18 @@ val nappend2(val list1, val list2)
   return list1;
 }
 
+val ldiff(val list1, val list2)
+{
+  list_collect_decl (out, tail);
+
+  while (list1 && list1 != list2) {
+    list_collect (tail, car(list1));
+    list1 = cdr(list1);
+  }
+
+  return out;
+}
+
 static val flatten_helper(val env, val item)
 {
   return flatten(item);