From 6b64f84d234927e84fdd9290721384a0aba27de7 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès
Date: Sat, 1 Aug 2020 16:59:23 +0200
Subject: skribilo: Use _IOFBF on Guile 2.0 only.

* src/guile/skribilo.scm (skribilo): Use _IOFBF on Guile 2.0 only.
---
 src/guile/skribilo.scm | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

(limited to 'src')

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
-- 
cgit v1.2.3