IN: scratchpad
USE: compiler
USE: test
USE: inference
USE: lists
USE: kernel

[ [ ] ] [ [ ] simplify ] unit-test
[ [ [ #return ] ] ] [ [ [ #return ] ] simplify ] unit-test
[ [ #jump | car ] ] [ [ [ #call | car ] [ #return ] ] simplify car ] unit-test

[ [ [ #return ] ] ]
[ 123 [ [ #call | car ] [ #label | 123 ] [ #return ] ] find-label ]
unit-test

[ [ [ #return ] ] ]
[ [ [ #label | 123 ] [ #return ] ] follow ]
unit-test

[ [ [ #return ] ] ]
[
    [
        [ #jump-label | 123 ]
        [ #call | car ]
        [ #label | 123 ]
        [ #return ]
    ] follow
]
unit-test

[
    [ #jump | car ]
]
[
    [
        [ #call | car ]
        [ #jump-label | 123 ]
        [ #label | 123 ]
        [ #return ]
    ] simplify car
] unit-test

[
    t
] [
    [
        [ #push-immediate | 1 ]
    ] push-next? >boolean
] unit-test

[
    [
        [ #replace-immediate | 1 ]
        [ #return ]
    ]
] [
    [ drop 1 ] dataflow linearize simplify
] unit-test