basis/compiler/tests/redefine13.factor

   1 USING: math fry macros eval tools.test ;
   2 IN: compiler.tests.redefine13
   3
   4 : breakage-word ( a b -- c ) + ;
   5
   6 MACRO: breakage-macro ( a -- ) '[ _ breakage-word ] ;
   7
   8 GENERIC: breakage-caller ( a -- c )
   9
  10 M: fixnum breakage-caller 2 breakage-macro ;
  11
  12 : breakage ( -- obj ) 2 breakage-caller ;
  13
  14 ! [ ] [ "IN: compiler.tests.redefine13 : breakage-word ( a b -- c ) ;" eval ] unit-test