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
Initial import 2007-09-20 18:09:08 -04:00			`USING: kernel math threads system ;`
			`IN: crypto.timing`

cleanup in aisle crypto 2008-04-03 14:57:33 -04:00			`: with-timing ( quot n -- )`
Initial import 2007-09-20 18:09:08 -04:00			`#! force the quotation to execute in, at minimum, n milliseconds`
cleanup in aisle crypto 2008-04-03 14:57:33 -04:00			`millis 2slip millis - + sleep ; inline`