with-foreground-interrupts ( quot -- )

Vocabulary

shell

Inputs

quot

an object

Outputs

None

Definition

USING: system ;

IN: shell

HOOK: with-foreground-interrupts os ( quot -- )

Methods

USING: combinators kernel shell ;

M: object with-foreground-interrupts ( -- ) call-effect ;


USING: continuations generic shell shell.unix system ;

M: unix with-foreground-interrupts
    factor_begin_ignore_console_signals
    [ M\ unix with-foreground-interrupts (call-next-method) ]
    [ factor_end_ignore_console_signals ] finally ;