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

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))))