mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 04:10:18 +02:00
Code Activity

* stacks.c, stacks.h, struct.c, tags.h, unif.c (scm_bits_t):

Browse source 
Renamed from SCMWORD.
This commit is contained in:
Mikael Djurfeldt 2000-03-12 17:52:18 +00:00
parent 0bc908e7c4
commit 4d45e7b69a
5 changed files with 9 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/unif.c
View file

@ -2466,7 +2466,7 @@ tail:
scm_putc ('*', port);
for (i = 0; i < (SCM_LENGTH (exp)) / SCM_LONG_BIT; i++)
{
SCMWORD w = SCM_BITS (SCM_VELTS (exp)[i]);
scm_bits_t w = SCM_BITS (SCM_VELTS (exp)[i]);
for (j = SCM_LONG_BIT; j; j--)
{
scm_putc (w & 1 ? '1' : '0', port);