commit 94a405749428097fd7fe4bf86de55555d8c79ef2

Author: Paul Wolneykien <manowar@altlinux.org>

Date:   Tue Dec 5 15:53:48 2017 +0300

    Adapt setbuf calls to an older version of Guile

diff --git a/alterator/interfaces/guile/pipe.scm b/alterator/interfaces/guile/pipe.scm

index d7b3cb3..c50abdb 100644

--- a/alterator/interfaces/guile/pipe.scm

+++ b/alterator/interfaces/guile/pipe.scm

@@ -25,7 +25,7 @@

 ;create pipe and made nonbuffered write side

 (define (create-pipe)

   (let ((p (pipe)))

-    (setvbuf (cdr p) 'none)

+    (setvbuf (cdr p) 0)

     p))

 ;return (pid,read-port,write-port)

diff --git a/alterator/sbin/alteratord b/alterator/sbin/alteratord

index a3ff7de..823c990 100755

--- a/alterator/sbin/alteratord

+++ b/alterator/sbin/alteratord

@@ -69,8 +69,8 @@

            (prepare-log (string-append *tmpdir* "/alteratord.log"))))

 ;; Do not delay logging:

-(setvbuf (current-error-port) 'line) ; goes to our custom log

-(setvbuf (current-output-port) 'line) ; captured by system log if it's a service

+(setvbuf (current-error-port) 1) ; goes to our custom log

+(setvbuf (current-output-port) 1) ; captured by system log if it's a service

 (force-output)

 (with-exit-handler