init-random-state: factor out function taking seed argument

We want this to be able to initialize random state from the fixnum and
from the array (following commits). This also simplifies code a
little.

Signed-off-by: Daniel Kochmański <daniel@turtleware.eu>