15 lines
373 B
Factor
15 lines
373 B
Factor
|
USING: math fry macros eval tools.test ;
|
||
|
|
IN: compiler.tests.redefine13
|
||
|
|
|
||
|
|
: breakage-word ( a b -- c ) + ;
|
||
|
|
|
||
|
|
MACRO: breakage-macro ( a -- ) '[ _ breakage-word ] ;
|
||
|
|
|
||
|
|
GENERIC: breakage-caller ( a -- c )
|
||
|
|
|
||
|
|
M: fixnum breakage-caller 2 breakage-macro ;
|
||
|
|
|
||
|
|
: breakage ( -- obj ) 2 breakage-caller ;
|
||
|
|
|
||
|
|
[ ] [ "IN: compiler.tests.redefine13 : breakage-word ( a b -- c ) ;" eval ] unit-test
|