diff options
| author | Ludovic Courtès | 2008-11-23 17:36:43 +0100 |
|---|---|---|
| committer | Ludovic Courtès | 2008-11-23 17:36:43 +0100 |
| commit | 8bcd82fe5e33d737bd6be80e9c29a790b3f52da6 (patch) | |
| tree | 95bea9c7553cf88ec303ff581798d94dad0fc74e /src | |
| parent | d70349707d5aed8a48176937235866e52126ec6e (diff) | |
| download | skribilo-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.scm | 7 |
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))) ;*---------------------------------------------------------------------*/ |