diff options
| -rw-r--r-- | src/guile/skribilo.scm | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/src/guile/skribilo.scm b/src/guile/skribilo.scm index 512b462..02efec1 100644 --- a/src/guile/skribilo.scm +++ b/src/guile/skribilo.scm @@ -419,7 +419,11 @@ options." (open-output-file output-file) (current-output-port)))) - (setvbuf (*skribilo-output-port*) _IOFBF 16384) + (setvbuf (*skribilo-output-port*) + (cond-expand + (guile-2.0 _IOFBF) + (else 'block)) + 16384) (if input-file (with-input-from-file input-file |