348 |
void |
void |
349 |
scm_init_srfi_1 (void) |
scm_init_srfi_1 (void) |
350 |
{ |
{ |
351 |
|
SCM the_root_module = scm_lookup_closure_module (SCM_BOOL_F); |
352 |
#ifndef SCM_MAGIC_SNARFER |
#ifndef SCM_MAGIC_SNARFER |
353 |
#include "srfi/srfi-1.x" |
#include "srfi/srfi-1.x" |
354 |
#endif |
#endif |
355 |
|
scm_c_extend_primitive_generic |
356 |
|
(SCM_VARIABLE_REF (scm_c_module_lookup (the_root_module, "map")), |
357 |
|
SCM_VARIABLE_REF (scm_c_lookup ("map"))); |
358 |
|
scm_c_extend_primitive_generic |
359 |
|
(SCM_VARIABLE_REF (scm_c_module_lookup (the_root_module, "for-each")), |
360 |
|
SCM_VARIABLE_REF (scm_c_lookup ("for-each"))); |
361 |
} |
} |
362 |
|
|
363 |
/* End of srfi-1.c. */ |
/* End of srfi-1.c. */ |