]> git.donarmstrong.com Git - lilypond.git/blobdiff - lily/lily-lexer.cc
Merge branch 'master' into lilypond/translation
[lilypond.git] / lily / lily-lexer.cc
index 3b9a3882b19158170de3132cf7088f10b98e9a65..424259beea59b17d6e5e6d7e1d96664548cdf14d 100644 (file)
@@ -295,9 +295,9 @@ Lily_lexer::set_identifier (SCM path, SCM val)
 
       if (scm_is_pair (path))
        {
-         SCM prev = scm_module_lookup (mod, sym);
-         if (prev != SCM_UNDEFINED)
-           val = nested_property_alist (prev, path, val);
+         SCM prev = ly_module_lookup (mod, sym);
+         if (prev != SCM_BOOL_F)
+           val = nested_property_alist (scm_variable_ref (prev), path, val);
        }
       scm_module_define (mod, sym, val);
     }