choose-restart ( name -- )

Vocabulary

raylib.live-coding.smoke-test

Inputs

name

an object

Outputs

None

Definition

USING: accessors combinators continuations debugger io kernel
namespaces sequences ui.commands ;

IN: raylib.live-coding.smoke-test

:: choose-restart ( name -- )
    [ test-world get-global find-debugger >boolean ] wait-until
    test-world get-global find-debugger :> popup popup error>>
    print-error flush popup restarts>>
    [ name>> name = ] find nip dup
    [ ] [ "Expected live-coding restart is missing" throw ] if
    \ continue-restart invoke-command
    popup restart-list>> dup hook>> ( table -- ) call-effect ;