2060 |
init_raprocs (ra_asubrs); |
init_raprocs (ra_asubrs); |
2061 |
scm_c_define_subr (s_array_equal_p, scm_tc7_rpsubr, scm_array_equal_p); |
scm_c_define_subr (s_array_equal_p, scm_tc7_rpsubr, scm_array_equal_p); |
2062 |
scm_smobs[SCM_TC2SMOBNUM (scm_tc16_array)].equalp = scm_raequal; |
scm_smobs[SCM_TC2SMOBNUM (scm_tc16_array)].equalp = scm_raequal; |
|
#ifndef SCM_MAGIC_SNARFER |
|
2063 |
#include "libguile/ramap.x" |
#include "libguile/ramap.x" |
|
#endif |
|
2064 |
scm_add_feature (s_scm_array_for_each); |
scm_add_feature (s_scm_array_for_each); |
2065 |
} |
} |
2066 |
|
|