Parent Directory | Revision Log | Patch
revision 1.47 by ossau, Tue Nov 13 23:44:29 2001 UTC | revision 1.48 by ttn, Thu Mar 14 03:47:42 2002 UTC | |
---|---|---|
# | Line 590 scm_init_random () | Line 590 scm_init_random () |
590 | for (i = m >> 1; i < m; ++i) | for (i = m >> 1; i < m; ++i) |
591 | scm_masktab[i] = m - 1; | scm_masktab[i] = m - 1; |
592 | ||
#ifndef SCM_MAGIC_SNARFER | ||
593 | #include "libguile/random.x" | #include "libguile/random.x" |
#endif | ||
594 | ||
595 | /* Check that the assumptions about bits per bignum digit are correct. */ | /* Check that the assumptions about bits per bignum digit are correct. */ |
596 | #if SIZEOF_INT == 4 | #if SIZEOF_INT == 4 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |