/[guile]/guile/guile-core/libguile/goops.c
ViewVC logotype

Diff of /guile/guile-core/libguile/goops.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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    

Legend:
Removed from v.1.63  
changed lines
  Added in v.1.64

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26