formatting nitpicks.

diff --git a/lily/note-collision.cc b/lily/note-collision.cc
index ec79a41e3c67b49bf854f77c764d7755f928e762..f5c4483bbd874d2aaa85f2f09a60a3f2aa0ad954 100644 (file)
--- a/lily/note-collision.cc
+++ b/lily/note-collision.cc
@@ -424,7 +424,6 @@ Note_collision_interface::get_clash_groups (Grob *me)
 /** This complicated routine moves note columns around horizontally to
     ensure that notes don't clash.
 
-    This should be put into Scheme.
 */
 SCM
 Note_collision_interface::automatic_shift (Grob *me,

diff --git a/scm/define-grobs.scm b/scm/define-grobs.scm
index 994b5e11d88ba4b25ee5713a17f7afb6825bda05..7aad372102825fbbe3882e3a7d255cfc7b6cfed1 100644 (file)
--- a/scm/define-grobs.scm
+++ b/scm/define-grobs.scm
@@ -2139,4 +2139,7 @@
              (apply unpure args)
              (let ((pure (assq unpure pure-conversions-alist)))
                (if pure
-                   (apply (cdr pure) (append (list (car args) start end) (cdr args)))))))))
+                   (apply (cdr pure)
+                          (append
+                           (list (car args) start end)
+                           (cdr args)))))))))