diff options
| author | Mark H Weaver <mhw@netris.org> | 2014-04-25 02:06:01 -0400 |
|---|---|---|
| committer | Mark H Weaver <mhw@netris.org> | 2014-04-25 02:06:01 -0400 |
| commit | 475772ea57c97d0fa0f9ed9303db137d9798ddd3 (patch) | |
| tree | 99a9ba2ea0b044552016d41c5c9197bbac66d97f /libguile/random.c | |
| parent | 0e92ef40d047696eb3334405b2dd32f51ca55006 (diff) | |
| parent | e0da53b4fe4abee2cdcd97fe46eeefcaab1da631 (diff) | |
| download | guile-475772ea57c97d0fa0f9ed9303db137d9798ddd3.tar.gz | |
Merge branch 'stable-2.0'v2.1.0
Conflicts:
GUILE-VERSION
NEWS
guile-readline/ice-9/readline.scm
libguile/async.c
libguile/backtrace.c
libguile/deprecated.h
libguile/gc-malloc.c
libguile/gdbint.c
libguile/init.c
libguile/ioext.c
libguile/mallocs.c
libguile/print.c
libguile/rw.c
libguile/scmsigs.c
libguile/script.c
libguile/simpos.c
libguile/snarf.h
libguile/strports.c
libguile/threads.c
libguile/vm-i-scheme.c
libguile/vm-i-system.c
module/srfi/srfi-18.scm
test-suite/Makefile.am
test-suite/standalone/test-num2integral.c
Diffstat (limited to 'libguile/random.c')
| -rw-r--r-- | libguile/random.c | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/libguile/random.c b/libguile/random.c index 915f17feb..1ee0459de 100644 --- a/libguile/random.c +++ b/libguile/random.c @@ -1,5 +1,6 @@ /* Copyright (C) 1999, 2000, 2001, 2003, 2005, 2006, 2009, 2010, - * 2012, 2013 Free Software Foundation, Inc. + * 2012, 2013, 2014 Free Software Foundation, Inc. + * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public License * as published by the Free Software Foundation; either version 3 of @@ -31,10 +32,7 @@ #include <math.h> #include <string.h> #include <sys/types.h> - -#ifdef HAVE_UNISTD_H #include <unistd.h> -#endif #include "libguile/smob.h" #include "libguile/numbers.h" @@ -257,7 +255,7 @@ scm_i_mask32 (scm_t_uint32 m) ? scm_masktab[m >> 8] << 8 | 0xff : (m < 0x1000000 ? scm_masktab[m >> 16] << 16 | 0xffff - : scm_masktab[m >> 24] << 24 | 0xffffff))); + : ((scm_t_uint32) scm_masktab[m >> 24]) << 24 | 0xffffff))); } scm_t_uint32 |