diff --git a/csv/csv.scm b/csv/csv.scm index 0df10e1..dab98a0 100644 --- a/csv/csv.scm +++ b/csv/csv.scm @@ -78,7 +78,7 @@ (reverse (csv-read port delimiter new-row have-cell have-row init-seed)))) -;; read csv file and convert to sxml +;; read csv file and convert to an sxml tree (define* (csv->sxml port #:key (delimiter #\,) @@ -98,6 +98,7 @@ (r (string->symbol (record-sym n)))) (lp (cdr rest) (cons (list r line) result) (1+ n)))))))) +;; read a csv file and convert to a string of XML (define* (csv->xml port #:key (delimiter #\,)