mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-23 13:00:34 +02:00
Code Activity

(scm_string_to_char_set, scm_string_to_char_set_x): Use `size_t'

Browse source 
instead of deprecated `scm_sizet'.
This commit is contained in:
Thien-Thi Nguyen 2001-10-31 18:34:38 +00:00
parent fbac920eb0
commit 6cd036ce4f
1 changed files with 9 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

4
srfi/srfi-14.c
View file

@ -558,7 +558,7 @@ SCM_DEFINE (scm_string_to_char_set, "string->char-set", 1, 1, 0,
SCM cs; SCM cs;
long * p; long * p;
char * s; char * s;
scm_sizet k = 0; size_t k = 0;
SCM_VALIDATE_STRING (1, str); SCM_VALIDATE_STRING (1, str);
if (SCM_UNBNDP (base_cs)) if (SCM_UNBNDP (base_cs))
@ -589,7 +589,7 @@ SCM_DEFINE (scm_string_to_char_set_x, "string->char-set!", 2, 0, 0,
{ {
long * p; long * p;
char * s; char * s;
scm_sizet k = 0; size_t k = 0;
SCM_VALIDATE_STRING (1, str); SCM_VALIDATE_STRING (1, str);
SCM_VALIDATE_SMOB (2, base_cs, charset); SCM_VALIDATE_SMOB (2, base_cs, charset);