Parent Directory | Revision Log | Patch
revision 1.44.2.2 by ossau, Wed Nov 14 00:02:59 2001 UTC | revision 1.44.2.3 by ttn, Thu Mar 14 05:26:15 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 |