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