mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-17 09:10:22 +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

4
libguile/sort.c
View file

@ -441,9 +441,9 @@ GUILE_PROC (scm_restricted_vector_sort_x, "restricted-vector-sort!", 4, 0, 0,
vp = SCM_VELTS (vec); /* vector pointer */
vlen = SCM_LENGTH (vec);
SCM_VALIDATE_INT_COPY(3,startpos,spos);
SCM_VALIDATE_INUM_COPY(3,startpos,spos);
SCM_ASSERT_RANGE (3,startpos,(spos >= 0) && (spos <= vlen));
SCM_VALIDATE_INT_RANGE(4,endpos,0,vlen+1);
SCM_VALIDATE_INUM_RANGE(4,endpos,0,vlen+1);
len = SCM_INUM (endpos) - spos;
quicksort (&vp[spos], len, size, scm_cmp_function (less), less);