Paste: Inference error on a unit-test

USING: tools.test syntax kernel math arrays continuations sequences ;
IN: rjs.numerical

: in-range-interval? ( a b x -- ? )
    dup swapd [ < ] [ > ] 2bi* and ;

: in-range-tgteps? ( tgt eps x -- ? )
    [ [ - ] [ + ] 2bi ] dip
    in-range-interval? ;

: unit-test-range ( outeps quot -- )
    [ 2array ] 2keep
    [ { } swap with-datastack
      [ first2 ] [ first ] bi* in-range-tgteps? t assert=
    ] 2curry
    (unit-test) ;