Windows fix for certainty 's micro-benchmark egg. added by Jubjub on Sat Mar 15 20:48:26 2014
;; get time in microsecond resolution (foreign-declare "#include \"windows.h\"") (define %gettime/microsecs (foreign-lambda* double () " static double factor = 0.0; LARGE_INTEGER li; if (factor == 0.0) { if (!QueryPerformanceFrequency(&li)) { C_return(-1.0); } ///* microsecs */ factor = (double)(li.QuadPart) / 1000000.0; } if (!QueryPerformanceCounter(&li)) { C_return(-1.0); } C_return((double)li.QuadPart / factor); "))