- scm_internal_hash_fold ((Hash_closure_function) & module_define_closure_func,
- (void *) dest,
- SCM_EOL, SCM_MODULE_OBARRAY (src));
- return SCM_UNSPECIFIED;
-}
-
-LY_DEFINE (ly_clear_anonymous_modules, "ly:clear-anonymous-modules",
- 0, 0, 0, (),
- "Plug a GUILE 1.6 and 1.7 memory leak by breaking a weak"
- " reference pointer cycle explicitly.")
-{
-#ifdef MODULE_GC_KLUDGE
- clear_anonymous_modules ();
-#endif
-
+ scm_internal_hash_fold ((scm_t_hash_fold_fn) &module_define_closure_func,
+ (void *) dest,
+ SCM_EOL, SCM_MODULE_OBARRAY (src));