X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=csv.ml;h=6ca424b09ee1faa34556da43a40389dbc156712f;hb=680fc80e414200998978f834a83bb8200b2a6609;hp=82d8d02f218ca5df9f07b49e4f01a4b4d6542298;hpb=34be8e5d121442f3a0a51a5b645de85b8acf643b;p=ocaml-csv.git

diff --git a/csv.ml b/csv.ml
index 82d8d02..6ca424b 100644
--- a/csv.ml
+++ b/csv.ml
@@ -1,6 +1,6 @@
 (* csv.ml - comma separated values parser
  *
- * $Id: csv.ml,v 1.10 2006-04-21 12:44:42 rich Exp $
+ * $Id: csv.ml,v 1.11 2006-07-19 09:41:58 rich Exp $
  *)
 
 (* The format of CSV files:
@@ -379,7 +379,7 @@ let save_out_readable chan csv =
 	      try List.combine r1 r2
 	      with
 		Invalid_argument "List.combine" ->
-		  failwith "Csv.save_out_readable: internal error: length r1 = %d, length r2 = %d" (List.length r1) (List.length r2) in
+		  failwith (sprintf "Csv.save_out_readable: internal error: length r1 = %d, length r2 = %d" (List.length r1) (List.length r2)) in
 	    List.map (fun ((a : int), (b : int)) -> max a b) rp
 	  in
 	  List.fold_left max2rows lengths_row1 lengths_rest in