basis/compiler/tests/redefine15.factor

   1 USING: compiler.units words tools.test math kernel ;
   2 IN: compiler.tests.redefine15
   3
   4 DEFER: word-1
   5
   6 : word-2 ( a -- b ) word-1 ;
   7
   8 [ \ word-1 [ ] (( a -- b )) define-declared ] with-compilation-unit
   9
  10 [ "a" ] [ "a" word-2 ] unit-test
  11
  12 : word-3 ( a -- b ) 1 + ;
  13
  14 : word-4 ( a -- b c ) 0 swap word-3 swap 1 + ;
  15
  16 [ 1 1 ] [ 0 word-4 ] unit-test
  17
  18 [ \ word-3 [ [ 2 + ] bi@ ] (( a b -- c d )) define-declared ] with-compilation-unit
  19
  20 [ 2 3 ] [ 0 word-4 ] unit-test