59 lines
959 B
Factor
59 lines
959 B
Factor
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
|