(use csv csv-string)

(define parse (csv-parser #\;))

(define (parse-from-port #!optional (port (current-input-port)) (prev '()))
  (let* ((line (read-line port))
         (recs (if (and line (not (eq? line #!eof)))
                  (map csv-record->list (parse line))
                  #f)))
  (if recs 
    (parse-from-port port (append prev (list recs))) 
    prev)))

(print (parse-from-port))

;reading line by line is stupid because it breaks newline escaping etc.
;Luckily, DerGuteMoritz came up with the following:
(port-map (o csv-record->list car parse) (lambda () (read-line port)))

; Apparently, I misunderstood him: "ok anyway, your newline-escaping-unaware code can be reduced to one line!"
; so the right way to do it is reading the entire port until eof and then using that as input for
; parse and then csv-record->list.

(use utils csv csv-string)

(define parse (csv-parser #\;))

(define (read-file)
	(map csv-record->list (parse (read-all))))

(pp (read-file))