Minor commenting

5 years ago · 2bfe9b0551
parent 8120370cfb
commit 2bfe9b0551
1 changed files with 2 additions and 1 deletions
--- 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 #\,)