~ chicken-core (chicken-5) 84fdab81d5d36adac3d67bc7c56b128b7284034f

commit 84fdab81d5d36adac3d67bc7c56b128b7284034f
Author:     felix <felix@call-with-current-continuation.org>
AuthorDate: Fri Nov 3 19:01:50 2017 +0100
Commit:     felix <felix@call-with-current-continuation.org>
CommitDate: Fri Nov 3 19:01:50 2017 +0100

    unused local removed

diff --git a/extras.scm b/extras.scm
index af39c2b2..1ffb35e3 100644
--- a/extras.scm
+++ b/extras.scm
@@ -669,8 +669,7 @@
           (##core#inline_allocate ("C_s_a_u_i_random_int" 2) n))))
 
 (define random-bytes
-  (let ((in #f)
-        (nstate (foreign-value "C_RANDOM_STATE_SIZE" unsigned-int)))
+  (let ((nstate (foreign-value "C_RANDOM_STATE_SIZE" unsigned-int)))
     (lambda (#!optional buf size)
       (when size
         (##sys#check-fixnum size 'random-bytes)