From cdbadcacc18fbe6fb74263171796a9d0700deb5c Mon Sep 17 00:00:00 2001 From: Jim Blandy Date: Sat, 21 Jun 1997 05:53:39 +0000 Subject: 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. --- libguile/strings.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'libguile/strings.c') 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; -- cgit v1.2.3