From 71c4355d64027e50e8376a9fe8f8b8ff453c884c Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Wed, 28 Jul 2010 01:08:25 +0200 Subject: Displaying variable values in autodoc. --- geiser/doc.scm | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/geiser/doc.scm b/geiser/doc.scm index 8c00e22..0d6b451 100644 --- a/geiser/doc.scm +++ b/geiser/doc.scm @@ -49,8 +49,11 @@ ,@(let ((rest (assq-ref as 'rest))) (if rest (list "...") '()))) (key ,@(arglst as 'keyword)))) - (let ((args-list (map mkargs (if (list? args-list) args-list '())))) - (list id (cons 'args args-list)))) + (let* ((args-list (map mkargs (if (list? args-list) args-list '()))) + (value (if (null? args-list) + (format #f "~s" (symbol->object id)) + ""))) + (list id (cons 'args args-list) (cons 'value value)))) (define default-macro-args '(((required ...)))) -- cgit v1.2.3