~ chicken-core (chicken-5) 85a61f98c2bfd8bddc94b8b20842b32a4bed7895

commit 85a61f98c2bfd8bddc94b8b20842b32a4bed7895
Author:     Kooda <kooda@upyum.com>
AuthorDate: Sat Nov 4 13:18:12 2017 +0100
Commit:     Kooda <kooda@upyum.com>
CommitDate: Sat Nov 4 13:18:12 2017 +0100

    Reflect the signature change of random_word to C_a_i_random_real

diff --git a/runtime.c b/runtime.c
index 5dc17466..353f2f09 100644
--- a/runtime.c
+++ b/runtime.c
@@ -12682,7 +12682,11 @@ C_s_a_u_i_random_int(C_word **ptr, C_word n, C_word rn)
  * number in [0, 1], 0.00001010011111010100...; then round it.
  * More information on https://mumble.net/~campbell/2014/04/28/uniform-random-float
  */
-#define random64() ((((C_u64) random_word()) << 32) | ((C_u64) random_word()))
+#ifdef C_SIXTYFOUR
+# define random64() random_word()
+#else
+# define random64() ((((C_u64) random_word()) << 32) | ((C_u64) random_word()))
+#endif
 #define	clz64	__builtin_clzll		/* XXX GCCism */
 C_regparm C_word C_fcall
 C_a_i_random_real(C_word **ptr, C_word n) {