From 1d57d1c5b1605638097e08ef585813581aa71436 Mon Sep 17 00:00:00 2001
From: Carl Sorensen <c_sorensen@byu.edu>
Date: Tue, 13 Jan 2009 07:10:43 -0700
Subject: [PATCH] Add docstring to def-grace-function

---
 scm/music-functions.scm | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/scm/music-functions.scm b/scm/music-functions.scm
index f9599af572..d6de35852d 100644
--- a/scm/music-functions.scm
+++ b/scm/music-functions.scm
@@ -720,8 +720,10 @@ SkipEvent. Useful for extracting parts from crowded scores"
 
 
 
-(defmacro-public def-grace-function (start stop)
+(defmacro-public def-grace-function (start stop . docstring)
+  "Helper macro for defining grace music"
   `(define-music-function (parser location music) (ly:music?)
+     ,@docstring
      (make-music 'GraceMusic
 		 'origin location
 		 'element (make-music 'SequentialMusic
-- 
2.39.2