From eadbe19c831900eab4aec87c394d5ac8f2ee3bb5 Mon Sep 17 00:00:00 2001 From: David Kastrup Date: Thu, 19 Nov 2015 18:33:43 +0100 Subject: [PATCH] Issue 4663: Deobfuscate on-the-fly-markup definition This must be one of the most complicated ways imaginable for calling a procedure. --- scm/define-markup-commands.scm | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) 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?) -- 2.39.5