From: David Kastrup <dak@gnu.org>
Date: Thu, 19 Nov 2015 17:33:43 +0000 (+0100)
Subject: Issue 4663: Deobfuscate on-the-fly-markup definition
X-Git-Tag: release/2.19.33-1~9^2~5
X-Git-Url: https://git.donarmstrong.com/?a=commitdiff_plain;h=eadbe19c831900eab4aec87c394d5ac8f2ee3bb5;p=lilypond.git

Issue 4663: Deobfuscate on-the-fly-markup definition

This must be one of the most complicated ways imaginable for calling a
procedure.
---

diff --git a/scm/define-markup-commands.scm b/scm/define-markup-commands.scm
index 6aae0be780..e3d6cc581b 100644
--- a/scm/define-markup-commands.scm
+++ b/scm/define-markup-commands.scm
@@ -2244,12 +2244,9 @@ returns an empty markup.
   (procedure? markup?)
   #:category other
   "Apply the @var{procedure} markup command to @var{arg}.
-@var{procedure} should take a single argument."
-  (let ((anonymous-with-signature (lambda (layout props arg) (procedure layout props arg))))
-    (set-object-property! anonymous-with-signature
-                          'markup-signature
-                          (list markup?))
-    (interpret-markup layout props (list anonymous-with-signature arg))))
+@var{procedure} takes the same arguments as @code{interpret-markup}
+and returns a stencil."
+  (procedure layout props arg))
 
 (define-markup-command (footnote layout props mkup note)
   (markup? markup?)