From cbfe15dd0adc5e6f48fd01dc42e8cbd365668a5b Mon Sep 17 00:00:00 2001 From: Brady McDonough Date: Mon, 18 Jan 2021 23:54:12 -0700 Subject: [PATCH] Shallow formatting pass --- csv/csv.scm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/csv/csv.scm b/csv/csv.scm index d676f74..471abef 100644 --- a/csv/csv.scm +++ b/csv/csv.scm @@ -7,12 +7,12 @@ ;; it under the terms of the GNU Lesser General Public License as ;; published by the Free Software Foundation; either version 3 of the ;; License, or (at your option) any later version. -;; +;; ;; This program is distributed in the hope that it will be useful, but ;; WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU ;; Lesser General Public License for more details. -;; +;; ;; You should have received a copy of the GNU Lesser General Public ;; License along with this program; if not, contact: ;; @@ -95,7 +95,7 @@ (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)))))))) - + (define* (sxml->csv sxml port #:key (delimiter #\,)) (let* ((d (string delimiter)) (csv (map (lambda (l) (string-join l d)) sxml)))