diff options
author | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-06-29 15:54:58 +0000 |
---|---|---|
committer | Dirk Herrmann <dirk@dirk-herrmanns-seiten.de> | 2000-06-29 15:54:58 +0000 |
commit | 2500356c67755723d802538e8938b30019f64163 (patch) | |
tree | 88612ddc34756abfcbdb4c3aec1f44538411fccb /libguile/random.c | |
parent | 9b166f1273d16da2590720d3a57c2d17f97f2218 (diff) | |
download | guile-2500356c67755723d802538e8938b30019f64163.tar.gz |
* Cleaned up memory error signalling.
Diffstat (limited to 'libguile/random.c')
-rw-r--r-- | libguile/random.c | 7 |
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; |