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 | eda63df7eadd999a4e9234c4bcfcefe62a2bebe6 (patch) | |
| tree | 29825abad621974831f3972220f6ba59b82d76f7 /scheme/guile | |
| parent | 920ab2ad23b50a50ddf366cbffb7b4125f5c6cbb (diff) | |
| download | geiser-chez-eda63df7eadd999a4e9234c4bcfcefe62a2bebe6.tar.gz geiser-chez-eda63df7eadd999a4e9234c4bcfcefe62a2bebe6.tar.bz2 | |
Small bug fix.
Diffstat (limited to 'scheme/guile')
| -rw-r--r-- | scheme/guile/geiser/doc.scm | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/scheme/guile/geiser/doc.scm b/scheme/guile/geiser/doc.scm index 35c5bfb..a58f1d9 100644 --- a/scheme/guile/geiser/doc.scm +++ b/scheme/guile/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))))))) |