release: 1.5.19

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

diff --git a/lily/include/translator-group.hh b/lily/include/translator-group.hh
index edc09238fad7a466d2e13607513ecf40acd3bf41..50a713be690869bb6f1554495fd5e7befc8763c3 100644 (file)
--- a/lily/include/translator-group.hh
+++ b/lily/include/translator-group.hh
@@ -19,6 +19,7 @@
 
 // egcs
 typedef void (Translator::*Method_pointer) (void);
+#define set_property(x,y) internal_set_property(ly_symbol2scm(x),y)
 
 class Scheme_hash_table;
 
@@ -37,10 +38,10 @@ protected:
 public:
   SCM add_translator (SCM, Translator*);
   void execute_single_pushpop_property (SCM prop, SCM sym, SCM val);
-  SCM get_property (SCM name_sym) const;
-  void set_property (String var_name, SCM value);
+  SCM internal_get_property (SCM name_sym) const;
+
   void unset_property (SCM var_sym);
-  void set_property (SCM var_sym, SCM value);  
+  void internal_set_property (SCM var_sym, SCM value);  
   Translator_group *where_defined (SCM name_sym) const;
 
   String id_str_;
@@ -49,7 +50,6 @@ public:
   Translator_group (Translator_group const &);
   Translator_group ();
   void add_group_translator (Translator *trans_p);
-
   
   /// Score_register = 0, Staff_registers = 1, etc)
   Translator_group* ancestor_l (int l=1);
@@ -63,9 +63,8 @@ public:
   Translator_group *find_existing_translator_l (String n, String id);
   Translator_group *find_create_translator_l (String n, String id);
   Link_array<Translator_group> path_to_acceptable_translator (String alias, Music_output_def*) const;
-
   Translator_group*get_default_interpreter ();
-  
+
 public:
   bool try_music_on_nongroup_children (Music *m);
   
@@ -76,7 +75,6 @@ public:
   virtual void initialize ();
   virtual void finalize ();
   virtual void each (Method_pointer);
-
 };
 
 #endif // TRANSLATOR_GROUP_HH