brady
/
guile-csv
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Minor commenting

Browse Source
master
Brady McDonough 5 years ago
parent 8120370cfb
commit 2bfe9b0551
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File

3
csv/csv.scm
Unescape View File

@ -78,7 +78,7 @@
(reverse (reverse
(csv-read port delimiter new-row have-cell have-row init-seed)))) (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 (define* (csv->sxml port
#:key #:key
(delimiter #\,) (delimiter #\,)
@ -98,6 +98,7 @@
(r (string->symbol (record-sym n)))) (r (string->symbol (record-sym n))))
(lp (cdr rest) (cons (list r line) result) (1+ 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 (define* (csv->xml port
#:key #:key
(delimiter #\,) (delimiter #\,)

Write Preview
Loading…
Cancel
Save