]> git.donarmstrong.com Git - lilypond.git/blobdiff - lily/ly-module.cc
* lily/parser.yy (Music_list): add error-found to music with errors.
[lilypond.git] / lily / ly-module.cc
index ab0d15d405b6432ee2c5f7d3d4f1b1884d281a0b..4ee3c5d273035fe524c3f424e80dad46b73c8a64 100644 (file)
@@ -139,9 +139,9 @@ LY_DEFINE (ly_modules_lookup, "ly:modules-lookup",
           "returning the first occurence.  "
           "If not found, return @var{default}, or @code{#f}.")
 {
-  for (SCM s = modules; ly_c_pair_p (s); s = ly_cdr (s))
+  for (SCM s = modules; scm_is_pair (s); s = scm_cdr (s))
     {
-      SCM mod = ly_car (s);      
+      SCM mod = scm_car (s);      
       SCM v = scm_sym2var (sym, scm_module_lookup_closure (mod),
                           SCM_UNDEFINED);
       if (SCM_VARIABLEP(v) && SCM_VARIABLE_REF(v) != SCM_UNDEFINED)