added crypto/timing.factor

contrib/crypto/load.factor

@@ -2,6 +2,7 @@ REQUIRES: math ;
 
 PROVIDE: crypto {
     "common.factor"
+    "timing.factor"
     "base64.factor"
     "barrett.factor"
     "montgomery.factor"

contrib/crypto/timing.factor

@@ -0,0 +1,6 @@
+IN: timing
+USING: kernel threads ;
+
+: with-timed ( quot n -- )
+    #! force the quotation to execute in, at minimum, n milliseconds
+    millis rot call millis swap - - sleep ;