From 8bcd82fe5e33d737bd6be80e9c29a790b3f52da6 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès
Date: Sun, 23 Nov 2008 17:36:43 +0100
Subject: justify: Add missing new lines in `output-flush'.

* src/guile/skribilo/utils/justify.scm (output-flush): Add `newline'
  calls after each series of `display'.
---
 src/guile/skribilo/utils/justify.scm | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/guile/skribilo/utils/justify.scm b/src/guile/skribilo/utils/justify.scm
index 98b7277..7501861 100644
--- a/src/guile/skribilo/utils/justify.scm
+++ b/src/guile/skribilo/utils/justify.scm
@@ -118,8 +118,11 @@
 		 (let ((m (make-string margin #\space)))
 		    (lambda (x)
                       (display m)
-                      (display (text-string x))))
-		 (lambda (x) (display (text-string x))))
+                      (display (text-string x))
+                      (newline)))
+		 (lambda (x)
+                   (display (text-string x))
+                   (newline)))
 	     ((car *justifiers*) 'flush)))
 
 ;*---------------------------------------------------------------------*/
-- 
cgit v1.2.3