summaryrefslogtreecommitdiff
path: root/scheme/guile
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-07-28 01:08:25 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-07-28 01:08:25 +0200
commit32f9cb274bc9abc16449d2da50df537c82cc7775 (patch)
tree70bdaee986544bb0ea5978bc33cbed47957fc003 /scheme/guile
parent235543503d09a52a513054ed75ac2506b7ce87bf (diff)
downloadgeiser-guile-32f9cb274bc9abc16449d2da50df537c82cc7775.tar.gz
geiser-guile-32f9cb274bc9abc16449d2da50df537c82cc7775.tar.bz2
Displaying variable values in autodoc.
Diffstat (limited to 'scheme/guile')
-rw-r--r--scheme/guile/geiser/doc.scm7
1 files changed, 5 insertions, 2 deletions
diff --git a/scheme/guile/geiser/doc.scm b/scheme/guile/geiser/doc.scm
index 8c00e22..0d6b451 100644
--- a/scheme/guile/geiser/doc.scm
+++ b/scheme/guile/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 ...))))