2004-12-14 02:57:40 -05:00
|
|
|
IN: scratchpad
|
|
|
|
USE: compiler
|
|
|
|
USE: test
|
|
|
|
USE: inference
|
|
|
|
USE: lists
|
2004-12-18 20:24:46 -05:00
|
|
|
USE: kernel
|
2004-12-14 02:57:40 -05:00
|
|
|
|
|
|
|
[ [ ] ] [ [ ] simplify ] unit-test
|
|
|
|
[ [ [ #return ] ] ] [ [ [ #return ] ] simplify ] unit-test
|
2004-12-17 19:27:42 -05:00
|
|
|
[ [ #jump | car ] ] [ [ [ #call | car ] [ #return ] ] simplify car ] unit-test
|
2004-12-14 02:57:40 -05:00
|
|
|
|
|
|
|
[ [ [ #return ] ] ]
|
|
|
|
[ 123 [ [ #call | car ] [ #label | 123 ] [ #return ] ] find-label ]
|
|
|
|
unit-test
|
2004-12-17 19:27:42 -05:00
|
|
|
|
|
|
|
[ [ [ #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
|
2004-12-18 20:24:46 -05:00
|
|
|
|
|
|
|
[
|
|
|
|
t
|
|
|
|
] [
|
|
|
|
[
|
|
|
|
[ #push-immediate | 1 ]
|
|
|
|
] push-next? >boolean
|
|
|
|
] unit-test
|
|
|
|
|
|
|
|
[
|
|
|
|
[
|
|
|
|
[ #replace-immediate | 1 ]
|
|
|
|
[ #return ]
|
|
|
|
]
|
|
|
|
] [
|
|
|
|
[ drop 1 ] dataflow linearize simplify
|
|
|
|
] unit-test
|