summaryrefslogtreecommitdiff
path: root/libguile/random.c
diff options
context:
space:
mode:
authorKevin Ryde <user42@zip.com.au>2005-11-26 00:53:27 +0000
committerKevin Ryde <user42@zip.com.au>2005-11-26 00:53:27 +0000
commitc224262bd124854e2a3aaf0e73cfac2172975998 (patch)
tree743494807794d02cf7e4e70a53e3ee994b5ed72b /libguile/random.c
parentbc7323428446d76baf605017e3471fb5ddf542e4 (diff)
downloadguile-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.c6
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;