~ chicken-core (chicken-5) 8725fd0d9cfedca3566f7db3dd8eacc22561d5ed

commit 8725fd0d9cfedca3566f7db3dd8eacc22561d5ed
Author:     felix <felix@y.(none)>
AuthorDate: Wed Aug 25 03:26:59 2010 +0200
Commit:     felix <felix@y.(none)>
CommitDate: Wed Aug 25 03:26:59 2010 +0200

    applied fix for broken randomize (provided by Kon)

diff --git a/extras.scm b/extras.scm
index dcbfcca8..dc216f9e 100644
--- a/extras.scm
+++ b/extras.scm
@@ -65,7 +65,7 @@
 
 (define (randomize . n)
   (let ((nn (if (null? n)
-		(##sys#inexact->exact (fp/ (current-seconds) 1000.0)) ; wall clock time
+		(##sys#flo2fix (fp/ (current-seconds) 1000.0)) ; wall clock time
 		(car n))))
     (##sys#check-exact nn 'randomize)
     (##core#inline "C_randomize" nn) ) )