- String s = "*anonymous-ly-" + to_string (module_count++) + "*";
- SCM mod = scm_c_define_module (s.to_str0(), ly_init_anonymous_module, 0);
-
- anon_modules = scm_cons (mod, anon_modules);
- return mod;
-}
-
-void
-ly_clear_anonymous_modules ()
-{
- SCM s = anon_modules;
- anon_modules = SCM_EOL;
-
- for (; gh_pair_p (s) ; s = gh_cdr (s))