Parent Directory | Revision Log | Patch
revision 1.63 by rlb, Sun Apr 13 17:46:54 2003 UTC | revision 1.64 by mdj, Tue Apr 15 01:17:20 2003 UTC | |
---|---|---|
# | Line 1074 SCM_DEFINE (scm_sys_fast_slot_ref, "%fas | Line 1074 SCM_DEFINE (scm_sys_fast_slot_ref, "%fas |
1074 | i = SCM_INUM (index); | i = SCM_INUM (index); |
1075 | SCM_ASSERT_RANGE (2, index, i < SCM_NUMBER_OF_SLOTS (obj)); | SCM_ASSERT_RANGE (2, index, i < SCM_NUMBER_OF_SLOTS (obj)); |
1076 | ||
1077 | return scm_at_assert_bound_ref (obj, index); | return SCM_SLOT (obj, i); |
1078 | } | } |
1079 | #undef FUNC_NAME | #undef FUNC_NAME |
1080 |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |