[q-lang-cvs] q-csv/examples writesamples.q,1.5,1.6

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

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

Modified Files:
	writesamples.q 
Log Message:
Bugfixes and lineterminator defaults

Index: writesamples.q
===================================================================
RCS file: /cvsroot/q-lang/q-csv/examples/writesamples.q,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** writesamples.q	22 Jan 2008 16:45:17 -0000	1.5
--- writesamples.q	6 Mar 2008 16:19:15 -0000	1.6
***************
*** 23,27 ****
  def Dialect1 = csv_dialect [csv_quoting,csv_quote_all;];
  writefile_string F [] = ();
! writefile_string F [L|Ls] = [fwritecsv (F,Dialect1) L
  			     | writefile_string F Ls];
  
--- 23,27 ----
  def Dialect1 = csv_dialect [csv_quoting,csv_quote_all;];
  writefile_string F [] = ();
! writefile_string F [L|Ls] = [fwritecsv (F, Dialect1) L
  			     | writefile_string F Ls];