diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1998-04-12 23:36:54 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1998-04-12 23:36:54 +0000 |
commit | fc1d67c47bbd061906b5fe52a9f78f49b6433434 (patch) | |
tree | b8b99cbbfe2e6777110542ecae6728e71758111c /libguile/unif.c | |
parent | 360fc44c9840e7d492c1266d3455ec2dd6084cd6 (diff) | |
download | guile-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.c | 10 |
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) |