Welcome to the CHICKEN Scheme pasting service

;; currently C_randomize(time(NULL));
;; in initialize in runtime.c

;; possible alternative:

(define _spseudorandom
  (foreign-lambda* void () #<<EOF
    struct timeval tv;
    unsigned long junk;
    C_gettimeofday(&tv, NULL);
    C_randomize((C_getpid() << 16) ^ tv.tv_sec ^ tv.tv_usec ^ junk);
EOF
))