release: 1.3.102

[lilypond.git] / lily / translator-def.cc

diff --git a/lily/translator-def.cc b/lily/translator-def.cc
index 83ae6ac0452a5dbb865ec0c65962638094772288..3a9cc88de92ccd7c02de3cb7258375d854f62432 100644 (file)
--- a/lily/translator-def.cc
+++ b/lily/translator-def.cc
@@ -304,3 +304,18 @@ Translator_def::default_child_context_name ()
   SCM d = accepts_name_list_;
   return gh_pair_p (d) ? gh_car (scm_last_pair (d)) : SCM_EOL;
 }
+
+SCM
+Translator_def::to_alist ()const
+{
+  SCM l =  SCM_EOL;
+
+  l = gh_cons (gh_cons (ly_symbol2scm ("consists"),  consists_name_list_), l);
+  l = gh_cons (gh_cons (ly_symbol2scm ("end-consists"),  end_consists_name_list_), l);
+  l = gh_cons (gh_cons (ly_symbol2scm ("accepts"),  accepts_name_list_), l);
+  l = gh_cons (gh_cons (ly_symbol2scm ("property-ops"),  property_ops_), l);
+  l = gh_cons (gh_cons (ly_symbol2scm ("type-name"),  type_name_), l);
+  l = gh_cons (gh_cons (ly_symbol2scm ("group-type"),  translator_group_type_), l);    
+
+  return l;  
+}