(LY_DEFINE): use Scheme style naming for

[lilypond.git] / lily / include / lily-guile.hh

diff --git a/lily/include/lily-guile.hh b/lily/include/lily-guile.hh
index 443713b6b63055156f5147d5730f622da04c225e..768bb6735eea9a064328f538028750fdc9b27af2 100644 (file)
--- a/lily/include/lily-guile.hh
+++ b/lily/include/lily-guile.hh
@@ -312,4 +312,8 @@ SCM FNAME ARGLIST ; \
 LY_DEFINE_WITHOUT_DECL(CLASS ## FNAME,  CLASS::FNAME, PRIMNAME, REQ, OPT, VAR, ARGLIST, DOCSTRING) 
 
 
+#define get_property(x) internal_get_property(ly_symbol2scm(x))
+#define set_property(x,y) internal_set_property(ly_symbol2scm (x), y)
+
+
 #endif /* LILY_GUILE_HH */