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

Vocabulary

raylib.live-coding.private

Inputs

quot

an object

Outputs

None

Definition

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

IN: raylib.live-coding.private

: with-rescue-to-listener ( quot -- )
    lc-enabled? [
        [
            [
                self swap
                '[ _ _ handle-error ] \ run call-listener
                receive lc-window-should-close? set
            ] with-listener-context
        ] recover
    ] [ call ] if ; inline