Guile Freenet
 
(drak)
2016-02-12: add missing newlines

add missing newlines

diff --git a/deduplicate-csv.scm b/deduplicate-csv.scm
--- a/deduplicate-csv.scm
+++ b/deduplicate-csv.scm
@@ -17,6 +17,7 @@
         (outport (open-output-file outfile)))
     ;; first copy the header
     (display (read-line inport) outport)
+    (newline outport)
     (let copy-dedup ((line (read-line inport)))
       (cond
        ((eof-object? line)
@@ -28,7 +29,8 @@
                (key (string-append source target)))
           (when (not (hash-ref known key))
             (hash-set! known key #t)
-            (display line outport))
+            (display line outport)
+            (newline outport))
           (copy-dedup (read-line inport))))))))