USING: kernel io threads vocabs.refresh ;
IN: hotrun

CONSTANT: message "y"

: main-loop ( -- )
    message write nl yield main-loop ;

: hot-refresh ( -- )
    refresh-all yield hot-refresh ;

: setup-then-main-loop ( -- )
    [ hot-refresh ] "hot reload thread" spawn drop
    [ main-loop ] "mock app test" spawn drop ;

: main-tight-loop ( -- )
    message write nl main-tight-loop ;

MAIN: setup-then-main-loop