diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-08-06 21:19:26 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2010-08-06 21:19:26 +0200 |
| commit | 3c5cf804bf5d6dc01bdeee2c62e39e83685e53e2 (patch) | |
| tree | 68c4c6a120509eabfd279486791ca4a3ad7eaf7c /geiser/doc.scm | |
| parent | 71c4355d64027e50e8376a9fe8f8b8ff453c884c (diff) | |
| download | geiser-guile-3c5cf804bf5d6dc01bdeee2c62e39e83685e53e2.tar.gz geiser-guile-3c5cf804bf5d6dc01bdeee2c62e39e83685e53e2.tar.bz2 | |
Guile: better formatting of autodoc's variable values.
Diffstat (limited to 'geiser/doc.scm')
| -rw-r--r-- | geiser/doc.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/geiser/doc.scm b/geiser/doc.scm index 0d6b451..b281792 100644 --- a/geiser/doc.scm +++ b/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)))) |