diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-07-28 01:08:25 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-07-28 01:08:25 +0200 |
| commit | 32f9cb274bc9abc16449d2da50df537c82cc7775 (patch) | |
| tree | 70bdaee986544bb0ea5978bc33cbed47957fc003 /scheme/guile/geiser | |
| parent | 235543503d09a52a513054ed75ac2506b7ce87bf (diff) | |
| download | geiser-guile-32f9cb274bc9abc16449d2da50df537c82cc7775.tar.gz geiser-guile-32f9cb274bc9abc16449d2da50df537c82cc7775.tar.bz2 | |
Displaying variable values in autodoc.
Diffstat (limited to 'scheme/guile/geiser')
| -rw-r--r-- | scheme/guile/geiser/doc.scm | 7 |
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 ...)))) |