factor/extra/crypto/timing/timing.factor

USING: kernel math threads system ;
IN: crypto.timing

: with-timing ( quot n -- )
    #! force the quotation to execute in, at minimum, n milliseconds
    millis 2slip millis - + sleep ; inline