diff options
author | Kevin Ryde <user42@zip.com.au> | 2005-11-26 00:53:27 +0000 |
---|---|---|
committer | Kevin Ryde <user42@zip.com.au> | 2005-11-26 00:53:27 +0000 |
commit | c224262bd124854e2a3aaf0e73cfac2172975998 (patch) | |
tree | 743494807794d02cf7e4e70a53e3ee994b5ed72b /libguile/random.c | |
parent | bc7323428446d76baf605017e3471fb5ddf542e4 (diff) | |
download | guile-c224262bd124854e2a3aaf0e73cfac2172975998.tar.gz |
(scm_i_copy_rstate, scm_c_make_rstate): Don't test for
scm_malloc returning NULL, it never does that.
Diffstat (limited to 'libguile/random.c')
-rw-r--r-- | libguile/random.c | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/libguile/random.c b/libguile/random.c index aeee2b217..009633db2 100644 --- a/libguile/random.c +++ b/libguile/random.c @@ -1,4 +1,4 @@ -/* Copyright (C) 1999,2000,2001, 2003 Free Software Foundation, Inc. +/* Copyright (C) 1999,2000,2001, 2003, 2005 Free Software Foundation, Inc. * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public * License as published by the Free Software Foundation; either @@ -143,8 +143,6 @@ scm_t_i_rstate * scm_i_copy_rstate (scm_t_i_rstate *state) { scm_t_rstate *new_state = scm_malloc (scm_the_rng.rstate_size); - if (new_state == 0) - scm_memory_error ("rstate"); return memcpy (new_state, state, scm_the_rng.rstate_size); } @@ -157,8 +155,6 @@ scm_t_rstate * scm_c_make_rstate (const char *seed, int n) { scm_t_rstate *state = scm_malloc (scm_the_rng.rstate_size); - if (state == 0) - scm_memory_error ("rstate"); state->reserved0 = 0; scm_the_rng.init_rstate (state, seed, n); return state; |