2004-12-14 02:57:40 -05:00
|
|
|
IN: scratchpad
|
|
|
|
|
USE: compiler
|
|
|
|
|
USE: test
|
|
|
|
|
USE: inference
|
|
|
|
|
USE: lists
|
|
|
|
|
|
|
|
|
|
[ [ ] ] [ [ ] 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
|
