q-lang-cvs

[RER <ed...@us...>]

Update of /cvsroot/q-lang/q-csv
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv11329

Modified Files:
	csv.q 
Log Message:
fixed bug in freadcsvlist

Index: csv.q
===================================================================
RCS file: /cvsroot/q-lang/q-csv/csv.q,v
retrieving revision 1.16
retrieving revision 1.17
diff -C2 -d -r1.16 -r1.17
*** csv.q	11 Feb 2008 02:31:30 -0000	1.16
--- csv.q	5 Mar 2008 22:04:02 -0000	1.17
***************
*** 151,156 ****
--- 151,158 ----
  public freadcsvlist ARGS;
  freadcsvlist (F:File, Dialect:Tuple)
+ 	= [] if feof F;
  	= [freadcsv (F, Dialect) | freadcsvlist (F, Dialect)];
  freadcsvlist F:File 
+ 	= [] if feof F;
  	= [freadcsv F | freadcsvlist F];