From ea9e3414b9365f3333d54538749a29b34398ff35 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Sun, 1 Mar 2009 15:49:34 +0100 Subject: Bug fix. --- geiser/introspection.scm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'geiser') 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))) -- cgit v1.2.3