Shallow formatting pass

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