diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-03-01 15:49:34 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-03-01 15:49:34 +0100 |
| commit | 18e0a6a3fdad52f4f30e9190b97b64211595e4d0 (patch) | |
| tree | b419e6e3d02d2424a91f69961ba1025a125a31e9 /scheme/guile/geiser | |
| parent | b03485cff434d8a2eafd8ad02620293a35c01977 (diff) | |
| download | geiser-chez-18e0a6a3fdad52f4f30e9190b97b64211595e4d0.tar.gz geiser-chez-18e0a6a3fdad52f4f30e9190b97b64211595e4d0.tar.bz2 | |
Bug fix.
Diffstat (limited to 'scheme/guile/geiser')
| -rw-r--r-- | scheme/guile/geiser/introspection.scm | 4 |
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))) |