mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-19 18:20:22 +02:00
Code Activity

A couple of typing problems (at leat partially) resolved.

Browse source
This commit is contained in:
Dirk Herrmann 2000-03-20 18:14:07 +00:00
parent f1083dd7d7
commit f2961ccd8f
4 changed files with 26 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/numbers.h
View file

@ -71,9 +71,9 @@
/* shifts of more than one are done by a library call, single shifts are
* performed in registers
*/
# define SCM_MAKINUM(x) (SCM_PACK (((SCM_UNPACK (x) << 1) << 1) + 2L))
# define SCM_MAKINUM(x) (SCM_PACK ((((x) << 1) << 1) + 2L))
#else
# define SCM_MAKINUM(x) (SCM_PACK ((SCM_UNPACK (x) << 2) + 2L))
# define SCM_MAKINUM(x) (SCM_PACK (((x) << 2) + 2L))
#endif /* def __TURBOC__ */