SCM prev = ly_module_lookup (mod, sym);
if (scm_is_true (prev))
val = nested_property_alist (scm_variable_ref (prev), path, val);
+ else
+ val = nested_create_alist (path, val);
}
scm_module_define (mod, sym, val);
}
}
-const char Lily_lexer::type_p_name_[] = "ly:lily-lexer?";
+const char * const Lily_lexer::type_p_name_ = "ly:lily-lexer?";
SCM
Lily_lexer::mark_smob () const