with-rescue-to-listener ( quot -- )

Vocabulary

raylib.live-coding.private

Inputs

quot

an object

Outputs

None

Definition

USING: concurrency.messaging continuations kernel threads
ui.tools.listener vocabs.loader ;

IN: raylib.live-coding.private

: with-rescue-to-listener ( quot -- )
    lc-enabled? [
        [
            [
                self swap [ handle-error ] 2curry
                \ run call-listener receive drop
            ] with-listener-context
        ] recover
    ] [ call ] if ; inline