Why (fp/ (current-seconds) 1000.0) added by alexshendi on Sun Aug 20 20:17:14 2017
;;;; From extras.scm ;;;; [snip] ;;; Random numbers: (define (randomize . n) (let ((nn (if (null? n) (##sys#flo2fix (fp/ (current-seconds) 1000.0)) ; wall clock time (car n)))) (##sys#check-exact nn 'randomize) (##core#inline "C_randomize" nn) ) ) (define (random n) (##sys#check-exact n 'random) (if (eq? n 0) 0 (##core#inline "C_random_fixnum" n) ) )