(get_simple_trans_list):

[lilypond.git] / lily / include / translator.hh

diff --git a/lily/include/translator.hh b/lily/include/translator.hh
index 9cb6e7c1718e4988c17d3fe5acd8a8f2bf7e3aa3..e23b68d7011471f18949b911f0758f1e231ca54b 100644 (file)
--- a/lily/include/translator.hh
+++ b/lily/include/translator.hh
@@ -54,13 +54,25 @@ public:
   virtual Moment now_mom () const;  
 
   /*
-    ugh: bubbled up from Translator_group. 
+    ugh: bubbled up.
    */
-  SCM simple_trans_list_;
-  SCM trans_group_list_;
   SCM definition_;
   SCM properties_scm_;
+  SCM trans_group_list_;
+
+  virtual SCM get_simple_trans_list ();
+public:
   DECLARE_SMOBS (Translator, dummy);
+private:
+  /*
+    ugh: bubbled up from Translator_group. 
+   */
+
+protected:                     // should be private.
+  SCM simple_trans_list_;
+
+  // ugr.
+  //   friend SCM Translator_group::get_simple_trans_list ();
 
 
 public: