aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorLudovic Courtès2020-08-01 16:59:23 +0200
committerLudovic Courtès2020-08-01 17:00:15 +0200
commit6b64f84d234927e84fdd9290721384a0aba27de7 (patch)
tree5eac751b7c1f1d094a09d76a19c81f808e84be6f /src
parentc35a45bb1eeaf0d87b13c8580f1051625aa20d35 (diff)
downloadskribilo-6b64f84d234927e84fdd9290721384a0aba27de7.tar.gz
skribilo-6b64f84d234927e84fdd9290721384a0aba27de7.tar.lz
skribilo-6b64f84d234927e84fdd9290721384a0aba27de7.zip
skribilo: Use _IOFBF on Guile 2.0 only.
* src/guile/skribilo.scm (skribilo): Use _IOFBF on Guile 2.0 only.
Diffstat (limited to 'src')
-rw-r--r--src/guile/skribilo.scm6
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