1 USING: tools.walker io io.streams.string kernel math
2 math.private namespaces prettyprint sequences tools.test
3 continuations math.parser threads arrays tools.walker.debug
4 generic.standard sequences.private kernel.private ;
20 [ 2 >r "Yo" r> ] test-walker
24 [ t [ 2 ] [ "hi" ] if ] test-walker
28 [ f [ 2 ] [ "hi" ] if ] test-walker
32 [ 2 2 fixnum+ ] test-walker
38 [ foo 4 fixnum+ ] test-walker
41 [ { C{ 1 1.5 } { } C{ 1 1.5 } { } } ] [
42 [ C{ 1 1.5 } { } 2dup ] test-walker
46 [ 5 5 number= ] test-walker
50 [ 5 6 number= ] test-walker
54 [ 0 { array-capacity } declare ] test-walker
58 [ "XYZ" "XYZ" mismatch ] test-walker
62 [ "XYZ" "XYZ" sequence= ] test-walker
66 [ "XYZ" "XYZ" = ] test-walker
70 [ "XYZ" "XuZ" = ] test-walker
78 [ [ 3 "x" set "x" get ] with-scope ] test-walker
82 [ [ "hi" print ] with-string-writer ] test-walker
86 [ [ 2 2 + number>string print ] with-string-writer ] test-walker
90 [ { 1 2 3 } set-datastack ] test-walker
94 [ [ 3 [ nip continue ] callcc0 2 * ] test-walker ] unit-test
97 [ [ [ 3 swap continue-with ] callcc1 2 * ] test-walker ] unit-test
100 [ [ [ ] [ ] recover ] test-walker ] unit-test
103 [ [ [ 3 throw ] [ 2 * ] recover ] test-walker ] unit-test
105 [ { T{ no-method f + nth } } ]
106 [ [ [ 0 \ + nth ] [ ] recover ] test-walker ] unit-test
109 [ "a" "b" set "c" "d" set [ ] test-walker ] with-scope