basis/tools/deploy/test/9/9.factor

   1 USING: alien kernel math ;
   2 IN: tools.deploy.test.9
   3
   4 : callback-test ( -- callback )
   5     "int" { "int" } "cdecl" [ 1 + ] alien-callback ;
   6
   7 : indirect-test ( -- )
   8     10 callback-test "int" { "int" } "cdecl" alien-indirect 11 assert= ;
   9
  10 MAIN: indirect-test