9 lines
309 B
Factor
9 lines
309 B
Factor
! Copyright (C) 2008 Doug Coleman.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: kernel math threads system calendar ;
|
|
IN: crypto.timing
|
|
|
|
: with-timing ( quot n -- )
|
|
#! force the quotation to execute in, at minimum, n milliseconds
|
|
millis 2slip millis - + milliseconds sleep ; inline
|