From 45b823e71d667785d1d70314cec13e3ac2bab2ef Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Thu, 3 Nov 2011 02:20:50 -0400
Subject: * tests/008/students.txr: Use disciplined collect with :vars.

---
 ChangeLog              | 4 ++++
 tests/008/students.txr | 5 +----
 2 files changed, 5 insertions(+), 4 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 29d02909..7a35b5f1 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2011-11-03  Kaz Kylheku  <kaz@kylheku.com>
+
+	* tests/008/students.txr: Use disciplined collect with :vars.
+
 2011-11-03  Kaz Kylheku  <kaz@kylheku.com>
 
 	* tests/008/students.txr: Regexes removed.
diff --git a/tests/008/students.txr b/tests/008/students.txr
index 7d555227..8cf437cb 100644
--- a/tests/008/students.txr
+++ b/tests/008/students.txr
@@ -1,5 +1,5 @@
 <Students>
-@(collect)
+@(collect :vars (NAME GENDER YEAR MONTH DAY (PET_TYPE "none") (PET_NAME "")))
 @  (cases)
   <Student Name="@NAME" Gender="@GENDER" DateOfBirth="@YEAR-@MONTH-@DAY"@(skip)
 @  (or)
@@ -7,9 +7,6 @@
 @  (end)
 @  (maybe)
     <Pet Type="@PET_TYPE" Name="@PET_NAME" />
-@  (or)
-@  (bind PET_TYPE "none")
-@  (bind PET_NAME "")
 @  (end)
 @(until)
 </Students>
-- 
cgit v1.2.3