diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-03-06 02:49:13 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-03-06 02:49:13 +0100 |
| commit | d71825cd8e95d4b17631d4f2ce0a26a12f67b199 (patch) | |
| tree | 11bbfc3cbf5bfb92d1bafd88e6f1000c15c92c7d /geiser/doc.scm | |
| parent | d5ff699cf64305c6264941a9e8e6b89e39aac199 (diff) | |
| download | geiser-guile-d71825cd8e95d4b17631d4f2ce0a26a12f67b199.tar.gz geiser-guile-d71825cd8e95d4b17631d4f2ce0a26a12f67b199.tar.bz2 | |
Small bug fix.
Diffstat (limited to 'geiser/doc.scm')
| -rw-r--r-- | geiser/doc.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/geiser/doc.scm b/geiser/doc.scm index 35c5bfb..a58f1d9 100644 --- a/geiser/doc.scm +++ b/geiser/doc.scm @@ -48,7 +48,7 @@ (else (let ((lst (last form))) (cond ((and (symbol? lst) (describe-application (list lst)))) - ((and (pair? lst) (not (memq (car lst) '(quote)))) (autodoc lst)) + ((and (pair? lst) (not (memq (car lst) '(quote))) (autodoc lst))) ((pair? lst) (autodoc (flatten-last form))) (else (describe-application form))))))) |