|
USING: effects sequences kernel arrays quotations inference
|
|
tools.test ;
|
|
IN: tools.test.inference
|
|
|
|
: short-effect
|
|
dup effect-in length swap effect-out length 2array ;
|
|
|
|
: unit-test-effect ( effect quot -- )
|
|
>r 1quotation r> [ infer short-effect ] curry unit-test ;
|