: callback_test_9 "int" { } "cdecl" alien-indirect ;

: callback-16
    "int" { } [
        yield 2
    ] alien-callback ;

: callback-15
    "int" { } [
        [ callback-16 callback_test_9 ] in-thread 3
    ] alien-callback ;

[ 3 ] [ callback-15 callback_test_9 ] unit-test