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 6aae0be7801c3a93c28ea9d6c9cf0bf1b9c054ba..e3d6cc581b6d50198f64a36a940f971a9456de29 100644 (file)
--- 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?)