summaryrefslogtreecommitdiff
path: root/geiser/introspection.scm
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
commitea9e3414b9365f3333d54538749a29b34398ff35 (patch)
tree41a9bd08aee4fed6df19ee7e325425c40b8f5572 /geiser/introspection.scm
parent717f3d004a19e9669d24519532133b14d971adf0 (diff)
downloadgeiser-guile-ea9e3414b9365f3333d54538749a29b34398ff35.tar.gz
geiser-guile-ea9e3414b9365f3333d54538749a29b34398ff35.tar.bz2
Bug fix.
Diffstat (limited to 'geiser/introspection.scm')
-rw-r--r--geiser/introspection.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/geiser/introspection.scm b/geiser/introspection.scm
index cab11fd..de1020f 100644
--- a/geiser/introspection.scm
+++ b/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)))