Markup documentation: when a command is a copy of another markup

command, and thus its argument names unknown, make up them.

diff --git a/scm/document-markup.scm b/scm/document-markup.scm
index 9a5e51eb19e7ec53349febb59f85747f70300b2e..27d1229ddebc4414958224e75a92a7eba57adced 100644 (file)
--- 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