Finished up phlog

1 files changed, 3 insertions, 3 deletions

diff --git a/org/blog/generate-phlog.scm b/org/blog/generate-phlog.scm
index 8d7445b..d48b984 100755
--- a/org/blog/generate-phlog.scm
+++ b/org/blog/generate-phlog.scm
@@ -16,7 +16,8 @@
         (pub-date (cadr (list-ref article 4)))
         (file (cadr (list-ref article 6))))
     (string-append "0" pub-date " - " title "\t"
-                   (format-article-filename file))))
+                   (format-article-filename file)
+                   "\n")))
 
 (define (make-gophermap articles)
   (call-with-output-file "gophermap"
@@ -24,8 +25,7 @@
       (for-each
        (lambda (article)
          (if (list? article)
-             (display (get-gophermap-item (cddr article)) fp)
-             (newline fp)))
+             (display (get-gophermap-item (cddr article)) fp)))
        (cdr (cadr articles))))))
 
 (define (make-blog-file article)