summaryrefslogtreecommitdiff
path: root/libguile/random.c
diff options
context:
space:
mode:
authorDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-06-29 15:54:58 +0000
committerDirk Herrmann <dirk@dirk-herrmanns-seiten.de>2000-06-29 15:54:58 +0000
commit2500356c67755723d802538e8938b30019f64163 (patch)
tree88612ddc34756abfcbdb4c3aec1f44538411fccb /libguile/random.c
parent9b166f1273d16da2590720d3a57c2d17f97f2218 (diff)
downloadguile-2500356c67755723d802538e8938b30019f64163.tar.gz
* Cleaned up memory error signalling.
Diffstat (limited to 'libguile/random.c')
-rw-r--r--libguile/random.c7
1 files changed, 2 insertions, 5 deletions
diff --git a/libguile/random.c b/libguile/random.c
index cfe1d0050..28c94d33c 100644
--- a/libguile/random.c
+++ b/libguile/random.c
@@ -171,8 +171,7 @@ scm_i_copy_rstate (scm_i_rstate *state)
{
scm_rstate *new_state = malloc (scm_the_rng.rstate_size);
if (new_state == 0)
- scm_wta (SCM_MAKINUM (scm_the_rng.rstate_size),
- (char *) SCM_NALLOC, "rstate");
+ scm_memory_error ("rstate");
return memcpy (new_state, state, scm_the_rng.rstate_size);
}
@@ -186,9 +185,7 @@ scm_c_make_rstate (char *seed, int n)
{
scm_rstate *state = malloc (scm_the_rng.rstate_size);
if (state == 0)
- scm_wta (SCM_MAKINUM (scm_the_rng.rstate_size),
- (char *) SCM_NALLOC,
- "rstate");
+ scm_memory_error ("rstate");
state->reserved0 = 0;
scm_the_rng.init_rstate (state, seed, n);
return state;