summaryrefslogtreecommitdiff
path: root/libguile/stacks.c
diff options
context:
space:
mode:
authorMarius Vollmer <mvo@zagadka.de>2004-07-10 14:35:36 +0000
committerMarius Vollmer <mvo@zagadka.de>2004-07-10 14:35:36 +0000
commita55c2b680920198892329bdf78c92ecc7553eb58 (patch)
tree5dab8dec3f128c90a317b4a607d5d9382dfd8c85 /libguile/stacks.c
parent7cee5b315a702049ba869150eb3d1658d38030d0 (diff)
downloadguile-a55c2b680920198892329bdf78c92ecc7553eb58.tar.gz
* validate.h, deprecated.h (SCM_VALIDATE_INUM, SCM_VALIDATE_INUM_COPY,
SCM_VALIDATE_BIGINT, SCM_VALIDATE_INUM_MIN, SCM_VALIDATE_INUM_MIN_COPY, SCM_VALIDATE_INUM_MIN_DEF_COPY,SCM_VALIDATE_INUM_DEF, SCM_VALIDATE_INUM_DEF_COPY, SCM_VALIDATE_INUM_RANGE, SCM_VALIDATE_INUM_RANGE_COPY): Deprecated because they make the fixnum/bignum distinction visible. Changed all uses to scm_to_size_t or similar.
Diffstat (limited to 'libguile/stacks.c')
-rw-r--r--libguile/stacks.c5
1 files changed, 1 insertions, 4 deletions
diff --git a/libguile/stacks.c b/libguile/stacks.c
index cf92a267f..483e3d4e5 100644
--- a/libguile/stacks.c
+++ b/libguile/stacks.c
@@ -551,10 +551,7 @@ SCM_DEFINE (scm_stack_ref, "stack-ref", 2, 0, 0,
unsigned long int c_index;
SCM_VALIDATE_STACK (1, stack);
- SCM_VALIDATE_INUM (2, index);
- SCM_ASSERT_RANGE (1, index, SCM_INUM (index) >= 0);
- c_index = SCM_INUM (index);
- SCM_ASSERT_RANGE (1, index, c_index < SCM_STACK_LENGTH (stack));
+ c_index = scm_to_unsigned_integer (index, 0, SCM_STACK_LENGTH(stack)-1);
return scm_cons (stack, index);
}
#undef FUNC_NAME