Added a *ROOT* element to (csv->sxml)'s return

5 years ago · 2151414cdb
parent c2b8ee9262
commit 2151414cdb
1 changed files with 2 additions and 2 deletions
--- a/csv/csv.scm
+++ b/csv/csv.scm
@ -82,7 +82,7 @@
 (define* (csv->sxml port
                    #:key
                    (delimiter #\,)
-                    (record-sym (lambda(n)(format #f "record-~a" n))))
+                    (record-sym (lambda(n) (format #f "record-~a" n))))
  (define reader (make-csv-reader delimiter
                                  #:have-row (lambda (row rows)
                                               (cons (reverse row) rows))))
@ -92,7 +92,7 @@
    (let lp((rest contents) (result '()) (n 1))
      (cond
       ((null? rest)
-        (reverse result))
+        (cons '*TOP* (reverse result)))
    (else
     (let* ((line (map list header (car rest)))
            (r (string->symbol (record-sym n))))