diff options
author | Keisuke Nishida <kxn30@po.cwru.edu> | 2000-12-08 17:32:56 +0000 |
---|---|---|
committer | Keisuke Nishida <kxn30@po.cwru.edu> | 2000-12-08 17:32:56 +0000 |
commit | e841c3e0c006a4c80d873f93cb512f0ec71a5705 (patch) | |
tree | a464d2eb9ca225d04d034b40e8b029efce1ea323 /libguile/random.c | |
parent | 38ae064c6e462bafc7e188b4586fb3e6eedec876 (diff) | |
download | guile-e841c3e0c006a4c80d873f93cb512f0ec71a5705.tar.gz |
Smob-related creanup.
Diffstat (limited to 'libguile/random.c')
-rw-r--r-- | libguile/random.c | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/libguile/random.c b/libguile/random.c index b33d4e3b8..2e342467e 100644 --- a/libguile/random.c +++ b/libguile/random.c @@ -329,7 +329,7 @@ scm_c_random_bignum (scm_rstate *state, SCM m) * Scheme level representation of random states. */ -long scm_tc16_rstate; +scm_bits_t scm_tc16_rstate; static SCM make_rstate (scm_rstate *state) @@ -338,7 +338,7 @@ make_rstate (scm_rstate *state) } static scm_sizet -free_rstate (SCM rstate) +rstate_free (SCM rstate) { free (SCM_RSTATE (rstate)); return scm_the_rng.rstate_size; @@ -577,8 +577,8 @@ scm_init_random () }; scm_the_rng = rng; - scm_tc16_rstate = scm_make_smob_type_mfpe ("random-state", 0, - NULL, free_rstate, NULL, NULL); + scm_tc16_rstate = scm_make_smob_type ("random-state", 0); + scm_set_smob_free (scm_tc16_rstate, rstate_free); for (m = 1; m <= 0x100; m <<= 1) for (i = m >> 1; i < m; ++i) |