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