8 lines
193 B
Factor
8 lines
193 B
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 ;
|
||
|
|
|