From 2151414cdb59b0851e06e01d9c19bd895f47bc7a Mon Sep 17 00:00:00 2001 From: Brady McDonough Date: Tue, 19 Jan 2021 21:41:04 -0700 Subject: [PATCH] Added a *ROOT* element to (csv->sxml)'s return --- csv/csv.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/csv/csv.scm b/csv/csv.scm index bcdfa67..0df10e1 100644 --- 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))))