summaryrefslogtreecommitdiff
path: root/scheme/guile/geiser
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-03-01 15:49:34 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-03-01 15:49:34 +0100
commit18e0a6a3fdad52f4f30e9190b97b64211595e4d0 (patch)
treeb419e6e3d02d2424a91f69961ba1025a125a31e9 /scheme/guile/geiser
parentb03485cff434d8a2eafd8ad02620293a35c01977 (diff)
downloadgeiser-chez-18e0a6a3fdad52f4f30e9190b97b64211595e4d0.tar.gz
geiser-chez-18e0a6a3fdad52f4f30e9190b97b64211595e4d0.tar.bz2
Bug fix.
Diffstat (limited to 'scheme/guile/geiser')
-rw-r--r--scheme/guile/geiser/introspection.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/scheme/guile/geiser/introspection.scm b/scheme/guile/geiser/introspection.scm
index cab11fd..de1020f 100644
--- a/scheme/guile/geiser/introspection.scm
+++ b/scheme/guile/geiser/introspection.scm
@@ -47,8 +47,8 @@
(cond ((symbol? lst) (or (describe-application (list lst))
(describe-application form)))
((pair? lst)
- (or (autodoc lst)
- (autodoc (map (lambda (s) (if (list? s) (gensym) s)) form))))
+ (or (autodoc (pair->list lst))
+ (autodoc (map (lambda (s) (if (pair? s) (gensym) s)) form))))
(else (describe-application form)))))
(else #f)))