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

* *.c, srcprop.h: Use SCM_BOOL(f) instead of (f? SCM_BOOL_T:

Browse source 
SCM_BOOL_F) and use SCM_NEGATE_BOOL(f) instead of (f? SCM_BOOL_F:
SCM_BOOL_T).
This commit is contained in:
Greg J. Badros 1999-12-12 19:24:29 +00:00
parent a9967b3dbf
commit 156dcb091b
15 changed files with 42 additions and 43 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/unif.c
View file

@ -1970,9 +1970,9 @@ GUILE_PROC(scm_array_to_list, "array->list", 1, 0, 0,
register unsigned long mask;
for (k = (SCM_LENGTH (v) - 1) / SCM_LONG_BIT; k > 0; k--)
for (mask = 1UL << (SCM_LONG_BIT - 1); mask; mask >>= 1)
res = scm_cons (((long *) data)[k] & mask ? SCM_BOOL_T : SCM_BOOL_F, res);
res = scm_cons (SCM_BOOL(((long *) data)[k] & mask), res);
for (mask = 1L << ((SCM_LENGTH (v) % SCM_LONG_BIT) - 1); mask; mask >>= 1)
res = scm_cons (((long *) data)[k] & mask ? SCM_BOOL_T : SCM_BOOL_F, res);
res = scm_cons (SCM_BOOL(((long *) data)[k] & mask), res);
return res;
}
# ifdef SCM_INUMS_ONLY