summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorLudovic Courtès2008-11-23 17:36:43 +0100
committerLudovic Courtès2008-11-23 17:36:43 +0100
commit8bcd82fe5e33d737bd6be80e9c29a790b3f52da6 (patch)
tree95bea9c7553cf88ec303ff581798d94dad0fc74e /src
parentd70349707d5aed8a48176937235866e52126ec6e (diff)
downloadskribilo-8bcd82fe5e33d737bd6be80e9c29a790b3f52da6.tar.gz
skribilo-8bcd82fe5e33d737bd6be80e9c29a790b3f52da6.tar.lz
skribilo-8bcd82fe5e33d737bd6be80e9c29a790b3f52da6.zip
justify: Add missing new lines in `output-flush'.
* src/guile/skribilo/utils/justify.scm (output-flush): Add `newline' calls after each series of `display'.
Diffstat (limited to 'src')
-rw-r--r--src/guile/skribilo/utils/justify.scm7
1 files changed, 5 insertions, 2 deletions
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)))
;*---------------------------------------------------------------------*/