factor/library/test/redefine.factor

12 lines
185 B
Factor
Raw Normal View History

IN: temporary
2005-03-26 20:40:29 -05:00
USING: compiler inference math ;
USE: test
: foo 1 2 ;
: bar foo foo ; compiled
: foo 1 2 3 ;
[ 1 2 3 1 2 3 ] [ bar ] unit-test
[ [ 0 3 ] ] [ [ foo ] infer ] unit-test