basis/tools/deploy/test/12/12.factor

   1 ! Copyright (C) 2009 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: math.parser io math ;
   4 IN: tools.deploy.test.12
   5
   6 : execute-test ( a b w -- c ) execute( a b -- c ) ;
   7
   8 : call-test ( a b q -- c ) call( a b -- c ) ;
   9
  10 : foo ( -- ) 1 2 \ + execute-test 4 [ * ] call-test number>string print ;
  11
  12 MAIN: foo