[r2003-11-25 13:58:26 by cmiachon] Empty log message

Original author: cmiachon
Date: 2003-11-25 13:58:26+00:00

tests/cql/q6.cd

 (*********function *********)
 let fun count([Any*]->Int)
 	  [] -> 0
-	| [h;t] -> 1+count(t);;
+	| [_;t] -> 1+count(t);;
 
 (***************************)
 
@@ -19,9 +19,9 @@ where count([b]/<author>_)>=1;;
 
 let q6p=
 <bib>
-select <book>[t  !a1 !(if el=[] then [] else [<et-al>[]])]
+select <book>[t  !a !(if etal=[] then [] else [<et-al>[]])]
 from <bib>[b::Book*] in [doc],
-     <book>[t&Title (a1&Author | a1::(Author Author) el::_*) Publisher _*
+     <book>[t&Title ( a&Author | a::(Author Author) etal::_*) Publisher _*
       ] in b;;