* lily/text-engraver.cc (process_acknowledged_grobs): use new

[lilypond.git] / scm / molecule.scm

diff --git a/scm/molecule.scm b/scm/molecule.scm
index 0e3f21ecaa673c03b38d249ea69cc43d8704f683..5de26e4a5804a18199b49b3da76c6fd455f1fe08 100644 (file)
--- a/scm/molecule.scm
+++ b/scm/molecule.scm
@@ -16,15 +16,15 @@
   "Stack vertically with a baseline-skip."
   (if (null? mols)
       '()
-      (if (pair? mols)
+      (if (null? (cdr mols))
+         (car mols)
          (ly:combine-molecule-at-edge (car mols) Y dir 
-                                      (stack-lines Y dir padding (cdr mols))
-                                      padding baseline 
+                                      (stack-lines dir padding baseline (cdr mols))
+                                      padding baseline
                                       )
          )
   ))
 
-
 (define-public (fontify-text font-metric text)
   "Set TEXT with font FONT-METRIC, returning a molecule."
   (let* ((b  (ly:text-dimension font-metric text)))
@@ -45,8 +45,6 @@
     mol
   ))
 
-
-
 (define-public (box-molecule xext yext)
   "Make a filled box."