/[guile]/guile/guile-core/libguile/random.c
ViewVC logotype

Diff of /guile/guile-core/libguile/random.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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

Legend:
Removed from v.1.44.2.2  
changed lines
  Added in v.1.44.2.3

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26