summaryrefslogtreecommitdiff
path: root/scheme/guile/geiser/doc.scm
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2010-08-06 21:19:26 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2010-08-06 21:19:26 +0200
commit265dba21bf1b9347749452304d40e030488ee2ca (patch)
tree5ae6213eb3092c8851ab7326e9c9e9bb66a0c9e7 /scheme/guile/geiser/doc.scm
parent0b5791b3c64a0a704948f99965c17418652fbdcd (diff)
downloadgeiser-chez-265dba21bf1b9347749452304d40e030488ee2ca.tar.gz
geiser-chez-265dba21bf1b9347749452304d40e030488ee2ca.tar.bz2
Guile: better formatting of autodoc's variable values.
Diffstat (limited to 'scheme/guile/geiser/doc.scm')
-rw-r--r--scheme/guile/geiser/doc.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/scheme/guile/geiser/doc.scm b/scheme/guile/geiser/doc.scm
index 0d6b451..b281792 100644
--- a/scheme/guile/geiser/doc.scm
+++ b/scheme/guile/geiser/doc.scm
@@ -19,6 +19,7 @@
#:use-module (ice-9 session)
#:use-module (ice-9 documentation)
#:use-module (ice-9 regex)
+ #:use-module (ice-9 format)
#:use-module (oop goops)
#:use-module (srfi srfi-1))
@@ -51,7 +52,7 @@
(key ,@(arglst as 'keyword))))
(let* ((args-list (map mkargs (if (list? args-list) args-list '())))
(value (if (null? args-list)
- (format #f "~s" (symbol->object id))
+ (format #f "~:@y" (symbol->object id))
"")))
(list id (cons 'args args-list) (cons 'value value))))