* rand.c (make_state): Use ANSI C syntax for prototyped function of no

arguments. This snuck through due to working with a C++ compiler.
(random): Fixed unused variable warning that happens on 32-bit-pointer
platforms.

2 files changed, 8 insertions, 2 deletions

diff --git a/ChangeLog b/ChangeLog
index 3a3f6933..72856d26 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2011-12-27  Kaz Kylheku  <kaz@kylheku.com>
+
+	* rand.c (make_state): Use ANSI C syntax for prototyped function of no
+	arguments. This snuck through due to working with a C++ compiler.
+	(random): Fixed unused variable warning that happens on 32-bit-pointer
+	platforms.
+	
 2011-12-25  Kaz Kylheku  <kaz@kylheku.com>
 
 	* txr.1: Formatting fixes.
diff --git a/rand.c b/rand.c
index 9a48e7e1..02c42c18 100644
--- a/rand.c
+++ b/rand.c
@@ -69,7 +69,7 @@ static struct cobj_ops random_state_ops = {
   cobj_hash_op 
 };
 
-static val make_state()
+static val make_state(void)
 {
   struct random_state *r = (struct random_state *) chk_malloc(sizeof *r);
   return cobj((mem_t *) r, random_state_s, &random_state_ops);
@@ -218,7 +218,6 @@ val random(val state, val modulus)
       goto invalid;
     for (;;) {
       cnum out = 0;
-      int i;
 
 #if SIZEOF_PTR >= 8
       for (i = 0; i < rands_needed; i++) {