From 6ab7226db3506179c9f07114eb8432084cf0fa82 Mon Sep 17 00:00:00 2001 From: Nicolas Sceaux Date: Mon, 1 Jan 2007 23:23:51 +0100 Subject: [PATCH] Markup documentation: when a command is a copy of another markup command, and thus its argument names unknown, make up them. --- scm/document-markup.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/scm/document-markup.scm b/scm/document-markup.scm index 9a5e51eb19..27d1229dde 100644 --- a/scm/document-markup.scm +++ b/scm/document-markup.scm @@ -10,10 +10,10 @@ (f-name (symbol->string (procedure-name func))) (c-name (regexp-substitute/global #f "-markup$" f-name 'pre "" 'post)) (sig (object-property func 'markup-signature)) - (arg-names - (map symbol->string - (cddr (cadr (procedure-source func))))) - + (arg-names (let ((arg-list (cadr (procedure-source func)))) + (if (list? arg-list) + (map symbol->string (cddr arg-list)) + (make-list (length sig) "arg")))) (sig-type-names (map type-name sig)) (signature-str (string-join -- 2.39.2