12 lines
211 B
Factor
12 lines
211 B
Factor
|
IN: scratchpad
|
||
|
|
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
|
||
|
|
[ [ [ ] [ fixnum fixnum fixnum ] ] ] [ [ foo ] infer ] unit-test
|