/[guile]/guile/guile-core/srfi/srfi-1.c
ViewVC logotype

Diff of /guile/guile-core/srfi/srfi-1.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by mdj, Mon Feb 3 14:48:25 2003 UTC revision 1.4 by mdj, Thu Mar 6 12:51:57 2003 UTC
# Line 348  SCM_DEFINE (scm_srfi1_assoc, "assoc", 2, Line 348  SCM_DEFINE (scm_srfi1_assoc, "assoc", 2,
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.  */

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

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