/[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.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

Legend:
Removed from v.1.47  
changed lines
  Added in v.1.48

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