From 51c28a204760fc6f91e09af1842dc5a32f18a909 Mon Sep 17 00:00:00 2001
From: Kevin Ryde <user42@zip.com.au>
Date: Mon, 17 Apr 2006 00:25:52 +0000
Subject: [PATCH] scm_t_uint64 cast in scm_i_uniform32, which was apparently
 Mikael's intention (as in the HEAD).

---
 libguile/random.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/libguile/random.c b/libguile/random.c
index 0ae9c972e..912f6acc5 100644
--- a/libguile/random.c
+++ b/libguile/random.c
@@ -80,7 +80,7 @@ scm_t_rng scm_the_rng;
 unsigned long
 scm_i_uniform32 (scm_t_i_rstate *state)
 {
-  scm_t_uint64 x = (scm_t_int64) A * state->w + state->c;
+  scm_t_uint64 x = (scm_t_uint64) A * state->w + state->c;
   scm_t_uint32 w = x & 0xffffffffUL;
   state->w = w;
   state->c = x >> 32L;