diff options
| author | Ludovic Courtès | 2020-08-01 16:59:23 +0200 |
|---|---|---|
| committer | Ludovic Courtès | 2020-08-01 17:00:15 +0200 |
| commit | 6b64f84d234927e84fdd9290721384a0aba27de7 (patch) | |
| tree | 5eac751b7c1f1d094a09d76a19c81f808e84be6f /src | |
| parent | c35a45bb1eeaf0d87b13c8580f1051625aa20d35 (diff) | |
| download | skribilo-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.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 |