summaryrefslogtreecommitdiff
path: root/libguile/unif.c
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>1998-04-12 23:36:54 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>1998-04-12 23:36:54 +0000
commitfc1d67c47bbd061906b5fe52a9f78f49b6433434 (patch)
treeb8b99cbbfe2e6777110542ecae6728e71758111c /libguile/unif.c
parent360fc44c9840e7d492c1266d3455ec2dd6084cd6 (diff)
downloadguile-fc1d67c47bbd061906b5fe52a9f78f49b6433434.tar.gz
* unif.c (scm_uniform_vector_ref, scm_cvref, scm_array_set_x,
rapr1): Use SCM_UCHARS instead of SCM_CHARS for strings. (Thanks to Ole Myren Röhne.)
Diffstat (limited to 'libguile/unif.c')
-rw-r--r--libguile/unif.c10
1 files changed, 5 insertions, 5 deletions
diff --git a/libguile/unif.c b/libguile/unif.c
index 6e53451fb..fb83cee72 100644
--- a/libguile/unif.c
+++ b/libguile/unif.c
@@ -1113,7 +1113,7 @@ scm_uniform_vector_ref (v, args)
else
return SCM_BOOL_F;
case scm_tc7_string:
- return SCM_MAKICHR (SCM_CHARS (v)[pos]);
+ return SCM_MAKICHR (SCM_UCHARS (v)[pos]);
case scm_tc7_byvect:
return SCM_MAKINUM (((char *)SCM_CHARS (v))[pos]);
# ifdef SCM_INUMS_ONLY
@@ -1171,7 +1171,7 @@ scm_cvref (v, pos, last)
else
return SCM_BOOL_F;
case scm_tc7_string:
- return SCM_MAKICHR (SCM_CHARS (v)[pos]);
+ return SCM_MAKICHR (SCM_UCHARS (v)[pos]);
case scm_tc7_byvect:
return SCM_MAKINUM (((char *)SCM_CHARS (v))[pos]);
# ifdef SCM_INUMS_ONLY
@@ -1294,7 +1294,7 @@ scm_array_set_x (v, obj, args)
break;
case scm_tc7_string:
SCM_ASRTGO (SCM_ICHRP (obj), badobj);
- SCM_CHARS (v)[pos] = SCM_ICHR (obj);
+ SCM_UCHARS (v)[pos] = SCM_ICHR (obj);
break;
case scm_tc7_byvect:
if (SCM_ICHRP (obj))
@@ -2277,12 +2277,12 @@ tail:
break;
case scm_tc7_string:
if (n-- > 0)
- scm_iprin1 (SCM_MAKICHR (SCM_CHARS (ra)[j]), port, pstate);
+ scm_iprin1 (SCM_MAKICHR (SCM_UCHARS (ra)[j]), port, pstate);
if (SCM_WRITINGP (pstate))
for (j += inc; n-- > 0; j += inc)
{
scm_putc (' ', port);
- scm_iprin1 (SCM_MAKICHR (SCM_CHARS (ra)[j]), port, pstate);
+ scm_iprin1 (SCM_MAKICHR (SCM_UCHARS (ra)[j]), port, pstate);
}
else
for (j += inc; n-- > 0; j += inc)