[nongnu] elpa/geiser-guile 71c4355 148/284: Displaying variable values in autodoc.

[Philip Kaludercic]

branch: elpa/geiser-guile
commit 71c4355d64027e50e8376a9fe8f8b8ff453c884c
Author: Jose Antonio Ortega Ruiz <jao@gnu.org>
Commit: Jose Antonio Ortega Ruiz <jao@gnu.org>

    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 ...))))