unix-system-call-allow-eintr ( quot -- quot )

Vocabulary

unix

Inputs

quot

an object

Outputs

quot

an object

Definition

USING: combinators.smart generalizations kernel libc sequences
sequences.generalizations ;

IN: unix

MACRO:: unix-system-call-allow-eintr ( quot -- quot )
    quot inputs :> n quot first :> word 0 :> ret! [
        n ndup quot call ret! ret unix-call-failed? [
            errno EINTR = [
                n narray errno dup strerror word
                unix-system-call-error
            ] unless
        ] [ n ndrop ret ] if
    ] ;