~ chicken-core (chicken-5) be98b53b3e7dcabcd23dca44bd5ab6a328862178

commit be98b53b3e7dcabcd23dca44bd5ab6a328862178
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Fri Nov 3 13:59:51 2017 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Fri Nov 3 13:59:51 2017 +0100

    drop use of chicken.random in support.scm

diff --git a/support.scm b/support.scm
index 517a1e57..67e5d3c6 100644
--- a/support.scm
+++ b/support.scm
@@ -92,7 +92,6 @@
 	chicken.plist
 	chicken.port
 	chicken.pretty-print
-	chicken.random
 	chicken.sort
 	chicken.string
 	chicken.syntax
@@ -1393,7 +1392,7 @@
    (sprintf "~A-~A~A"
 	    (optional prefix (gensym))
 	    (current-seconds)
-	    (random 1000) ) ) )
+	    (##core#inline "C_random_fixnum" 1000))))
 
 
 ;;; Register/lookup real names: