From 38f91f3304540e49aee37826b39dacf79fcba67a Mon Sep 17 00:00:00 2001 From: Nala Ginrut Date: Thu, 7 Feb 2013 23:44:34 +0800 Subject: [PATCH] Add record tag for csv->xml --- csv.scm | 7 ++++--- 1 file changed, 4 insertions(+), 3 deletions(-) diff --git a/csv.scm b/csv.scm index aaa2153..5558b7e 100644 --- a/csv.scm +++ b/csv.scm @@ -86,13 +86,14 @@ (let* ((csv (reader port)) (header (map string->symbol (car csv))) (contents (cdr csv))) - (let lp((rest contents) (result '())) + (let lp((rest contents) (result '()) (n 1)) (cond ((null? rest) (call-with-output-string (lambda (p) (sxml->xml (reverse result) p)))) (else - (let ((line (map list header (car rest)))) - (lp (cdr rest) (cons line result)))))))) + (let* ((line (map list header (car rest))) + (r (string->symbol (format #f "record-~a" n)))) + (lp (cdr rest) (cons (list r line) result) (1+ n))))))))