release: 1.3.30

[lilypond.git] / lily / molecule.cc

diff --git a/lily/molecule.cc b/lily/molecule.cc
index cd4d0482063cfdfabfd6933b8b6bbe431e4688cd..5620a92d180e07aeccd5580b4a54439c76d56ccd 100644 (file)
--- a/lily/molecule.cc
+++ b/lily/molecule.cc
@@ -13,11 +13,12 @@
 
 #include <math.h>
 
+#include "font-metric.hh"
 #include "dimensions.hh"
 #include "interval.hh"
 #include "string.hh"
 #include "molecule.hh"
-#include "atom.hh"
+
 #include "debug.hh"
 #include "killing-cons.tcc"
 
@@ -140,3 +141,11 @@ Molecule::empty_b () const
 {
   return expr_ == SCM_EOL;
 }
+
+
+SCM
+fontify_atom(Font_metric * met, SCM f)
+{
+  return  gh_list (ly_symbol2scm ("fontify"),
+                  ly_quote_scm (met->description ()), f, SCM_UNDEFINED);
+}