mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-18 17:50:29 +02:00
Code Activity

* *.[ch]: Replace SCM_VALIDATE_INT w/ SCM_VALIDATE_INUM for

Browse source 
better consistency with the names of other SCM_VALIDATE_ macros
and better conformance to guile naming policy.
This commit is contained in:
Greg J. Badros 2000-01-05 19:00:03 +00:00
parent f5421cfc2a
commit 47c6b75ea9
27 changed files with 172 additions and 172 deletions
Download patch file Download diff file Expand all files Collapse all files

10
libguile/strop.c
View file

@ -155,10 +155,10 @@ are different strings, it does not matter which function you use.")
long s1, s2, e, len;
SCM_VALIDATE_STRING(1,str1);
SCM_VALIDATE_INT_COPY(2,start1,s1);
SCM_VALIDATE_INT_COPY(3,end1,e);
SCM_VALIDATE_INUM_COPY(2,start1,s1);
SCM_VALIDATE_INUM_COPY(3,end1,e);
SCM_VALIDATE_STRING(4,str2);
SCM_VALIDATE_INT_COPY(5,start2,s2);
SCM_VALIDATE_INUM_COPY(5,start2,s2);
len = e - s1;
SCM_ASSERT_RANGE (3,end1,len >= 0);
SCM_ASSERT_RANGE (2,start1,s1 <= SCM_LENGTH (str1) && s1 >= 0);
@ -184,8 +184,8 @@ GUILE_PROC(scm_substring_fill_x, "substring-fill!", 4, 0, 0,
long i, e;
char c;
SCM_VALIDATE_STRING(1,str);
SCM_VALIDATE_INT_COPY(2,start,i);
SCM_VALIDATE_INT_COPY(3,end,e);
SCM_VALIDATE_INUM_COPY(2,start,i);
SCM_VALIDATE_INUM_COPY(3,end,e);
SCM_VALIDATE_CHAR_COPY(4,fill,c);
SCM_ASSERT_RANGE (2,start,i <= SCM_LENGTH (str) && i >= 0);
SCM_ASSERT_RANGE (3,end,e <= SCM_LENGTH (str) && e >= 0);