X-Git-Url: https://git.donarmstrong.com/?a=blobdiff_plain;f=scm%2Fdocument-identifiers.scm;h=fcd8f932146181b6dc016eac3d1b9d04fbbd1796;hb=9ec7c79078944a94e2e9abbf8e1b3299c9706389;hp=896e61842f6e531536b27b77a6ebb4ace24bc2a4;hpb=34e5b21b1af28e4d787ffaf758d4cd4b5b503053;p=lilypond.git

diff --git a/scm/document-identifiers.scm b/scm/document-identifiers.scm
index 896e61842f..fcd8f93214 100644
--- a/scm/document-identifiers.scm
+++ b/scm/document-identifiers.scm
@@ -1,6 +1,6 @@
 ;;;; This file is part of LilyPond, the GNU music typesetter.
 ;;;;
-;;;; Copyright (C) 2006--2011 Han-Wen Nienhuys <hanwen@lilypond.org>
+;;;; Copyright (C) 2006--2012 Han-Wen Nienhuys <hanwen@lilypond.org>
 ;;;;
 ;;;; LilyPond is free software: you can redistribute it and/or modify
 ;;;; it under the terms of the GNU General Public License as published by
@@ -26,7 +26,7 @@
 	(map symbol->string
 	     (cddr (cadr (procedure-source func)))))
        (doc (procedure-documentation func))
-       (sign (object-property func 'music-function-signature))
+       (sign (ly:music-function-signature music-func))
        (type-names (map (lambda (pred)
 			  (if (pair? pred)
 			      (format #f "[~a]" (type-name (car pred)))