Keep track of last displayed value.

csv-simple.scm

@@ -85,8 +85,19 @@
    (let* ((separator (get-keyword #:separator args (lambda () ";")))
 	  (string-delimiter (get-keyword #:string-delimiter args (lambda () "\"")))
 	  (lines (read-lines (open-input-file fn)))
-	  (csv-parse-line (make-csv-line-parser separator string-delimiter)))
-     (map csv-parse-line lines)))
+	  (csv-parse-line (make-csv-line-parser separator string-delimiter))
+	  (total (max (sub1 (length lines)) 1)))
+     (let loop ((lines lines)
+		(idx 0)
+		(res '()))
+       (if (null? lines)
+	   (reverse res)
+	   (let ((line (car lines)))
+	     (progress%-advance (/ idx total))
+	     (loop (cdr lines)
+		   (add1 idx)
+		   (cons (csv-parse-line line)
+			 res)))))))
 
  ;; Splits CSV into header and body based on the first empty row.
  (define (csv-split-header csv)