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

* Replaced SCM_CHARS with SCM_STRING_CHARS or SCM_SYMBOL_CHARS.

Browse source
This commit is contained in:
Dirk Herrmann 2000-09-22 17:17:55 +00:00
parent c1aef03710
commit 86c991c2a2
17 changed files with 48 additions and 32 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/unif.c
View file

@ -183,7 +183,7 @@ scm_make_uve (long k, SCM prot)
{
char s;
s = SCM_CHARS (prot)[0];
s = SCM_SYMBOL_CHARS (prot)[0];
if (s == 's')
{
i = sizeof (short) * k;
@ -306,12 +306,12 @@ SCM_DEFINE (scm_array_p, "array?", 1, 1, 0,
case scm_tc7_svect:
protp = SCM_SYMBOLP (prot)
&& (1 == SCM_LENGTH (prot))
&& ('s' == SCM_CHARS (prot)[0]);
&& ('s' == SCM_SYMBOL_CHARS (prot)[0]);
#ifdef HAVE_LONG_LONGS
case scm_tc7_llvect:
protp = SCM_SYMBOLP (prot)
&& (1 == SCM_LENGTH (prot))
&& ('s' == SCM_CHARS (prot)[0]);
&& ('s' == SCM_SYMBOL_CHARS (prot)[0]);
#endif
case scm_tc7_fvect:
protp = singp (prot);