* lily/include/lily-guile.hh: many new ly_ functions. Thanks to

[lilypond.git] / lily / ly-module.cc

diff --git a/lily/ly-module.cc b/lily/ly-module.cc
index ea0e7c67f899625ee4345baf2b42dfb3c5d38b81..7e22dcf202d720ce87dfc729a85df3d063e96932 100644 (file)
--- a/lily/ly-module.cc
+++ b/lily/ly-module.cc
@@ -40,11 +40,11 @@ ly_clear_anonymous_modules ()
   SCM s = anon_modules;
   anon_modules = SCM_EOL;
   
-  for (; gh_pair_p (s) ; s = gh_cdr (s))
+  for (; ly_pair_p (s) ; s = ly_cdr (s))
     {
       SCM tab= scm_c_make_hash_table (2);
       /* UGH. */
-      SCM_STRUCT_DATA (gh_car (s))[scm_module_index_obarray]
+      SCM_STRUCT_DATA (ly_car (s))[scm_module_index_obarray]
        = (long unsigned int) tab;
     }
 }
@@ -121,7 +121,7 @@ ly_module_lookup (SCM module, SCM sym)
 SCM
 ly_modules_lookup (SCM modules, SCM sym)
 {
-  for (SCM s = gh_car (modules); SCM_MODULEP (s); s = ly_cdr (s))
+  for (SCM s = ly_car (modules); SCM_MODULEP (s); s = ly_cdr (s))
     {
       SCM v = scm_sym2var (sym, scm_module_lookup_closure (s), SCM_UNDEFINED);
       if (v != SCM_UNDEFINED)