summaryrefslogtreecommitdiff
path: root/libguile/random.c
diff options
context:
space:
mode:
Diffstat (limited to 'libguile/random.c')
-rw-r--r--libguile/random.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/random.c b/libguile/random.c
index dd9a75e29..b33d4e3b8 100644
--- a/libguile/random.c
+++ b/libguile/random.c
@@ -405,7 +405,7 @@ SCM_DEFINE (scm_seed_to_random_state, "seed->random-state", 1, 0, 0,
if (SCM_NUMBERP (seed))
seed = scm_number_to_string (seed, SCM_UNDEFINED);
SCM_VALIDATE_STRING (1,seed);
- return make_rstate (scm_c_make_rstate (SCM_ROCHARS (seed),
+ return make_rstate (scm_c_make_rstate (SCM_STRING_CHARS (seed),
SCM_STRING_LENGTH (seed)));
}
#undef FUNC_NAME