diff options
author | Jim Blandy <jimb@red-bean.com> | 1997-06-21 05:53:39 +0000 |
---|---|---|
committer | Jim Blandy <jimb@red-bean.com> | 1997-06-21 05:53:39 +0000 |
commit | cdbadcacc18fbe6fb74263171796a9d0700deb5c (patch) | |
tree | 3fd6f93852c31de2d395946c2bd7534523deadf0 /libguile/strings.c | |
parent | e3173f937c5ccd113bc22741ddde029908cc4dce (diff) | |
download | guile-cdbadcacc18fbe6fb74263171796a9d0700deb5c.tar.gz |
Make things compile neatly under Sun's C compiler.
* dynl.c (scm_dynamic_func): Cast return value from sysdep_dynl_func.
* extchrs.c (xmbtowc): Make the second arg a normal char, not
unsigned, because that's what the ANSI function takes.
* extchrs.h (xmbtowc): Corresponding change to prototype.
* genio.c (scm_gen_getc): Make buf plain chars. Nobody wants
uchars here.
* mbstrings.c (scm_mb_ilength): Use ANSI arg syntax. Make DATA
argument plain char *.
* strings.c (scm_string): Use SCM_ROCHARS, since c is a plain
char.
* tag.c (scm_tag): Remove unreachable statement.
* unif.c (scm_array_to_list): If we want to shift a 1 bit to the
top of the word, it should be unsigned.
Diffstat (limited to 'libguile/strings.c')
-rw-r--r-- | libguile/strings.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/strings.c b/libguile/strings.c index 35ae04279..dc7270f3c 100644 --- a/libguile/strings.c +++ b/libguile/strings.c @@ -116,7 +116,7 @@ scm_string (chrs) int l; char * c; l = SCM_ROLENGTH (SCM_CAR (chrs)); - c = SCM_ROUCHARS (SCM_CAR (chrs)); + c = SCM_ROCHARS (SCM_CAR (chrs)); while (l) { --l; |