mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-24 12:20:20 +02:00
Code Activity

* Changed the default definition of SCM.

Browse source 
* Fixed some typing problems detected by the above change.
* Fixed some problems that were detected by compiling guile with -W.
This commit is contained in:
Dirk Herrmann 2001-05-27 22:00:03 +00:00
parent fc62c86a59
commit 729dbac32f
17 changed files with 147 additions and 81 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/sort.c
View file

@ -434,8 +434,8 @@ SCM_DEFINE (scm_restricted_vector_sort_x, "restricted-vector-sort!", 4, 0, 0,
vp = SCM_VELTS (vec); /* vector pointer */
vlen = SCM_VECTOR_LENGTH (vec);
SCM_VALIDATE_INUM_COPY (3,startpos,spos);
SCM_ASSERT_RANGE (3,startpos,(spos >= 0) && (spos <= vlen));
SCM_VALIDATE_INUM_MIN_COPY (3, startpos, 0, spos);
SCM_ASSERT_RANGE (3,startpos, spos <= vlen);
SCM_VALIDATE_INUM_RANGE (4,endpos,0,vlen+1);
len = SCM_INUM (endpos) - spos;