2008-11-22 23:46:57 -05:00
|
|
|
USING: math fry macros eval tools.test ;
|
|
|
|
|
IN: compiler.tests.redefine13
|
|
|
|
|
|
|
|
|
|
: breakage-word ( a b -- c ) + ;
|
|
|
|
|
|
2015-07-19 14:42:46 -04:00
|
|
|
<< MACRO: breakage-macro ( a -- quot ) '[ _ breakage-word ] ; >>
|
2008-11-22 23:46:57 -05:00
|
|
|
|
|
|
|
|
GENERIC: breakage-caller ( a -- c )
|
|
|
|
|
|
|
|
|
|
M: fixnum breakage-caller 2 breakage-macro ;
|
|
|
|
|
|
|
|
|
|
: breakage ( -- obj ) 2 breakage-caller ;
|
|
|
|
|
|
2008-11-22 23:47:40 -05:00
|
|
|
! [ ] [ "IN: compiler.tests.redefine13 : breakage-word ( a b -- c ) ;" eval ] unit-test
|
