diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-03-04 21:22:11 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-03-04 21:22:11 +0100 |
| commit | f1e7cfe8f0417ed636aca5d17706ea8e91375241 (patch) | |
| tree | 0facce126e1aa4f7a77ef3d407baad1d177f4d7b /scheme/guile/geiser/doc.scm | |
| parent | 902b7685194e9adfcd19d518a45dae3c4b13a90b (diff) | |
| download | geiser-guile-f1e7cfe8f0417ed636aca5d17706ea8e91375241.tar.gz geiser-guile-f1e7cfe8f0417ed636aca5d17706ea8e91375241.tar.bz2 | |
Leave quasiquote alone in autodoc.
Diffstat (limited to 'scheme/guile/geiser/doc.scm')
| -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 1057b89..01b9ce3 100644 --- a/scheme/guile/geiser/doc.scm +++ b/scheme/guile/geiser/doc.scm @@ -45,7 +45,7 @@ (cond ((symbol? lst) (or (describe-application (list lst)) (describe-application form))) ((pair? lst) - (or (and (not (memq (car lst) '(quote quasiquote))) + (or (and (not (memq (car lst) '(quote))) (autodoc (pair->list lst))) (autodoc (map (lambda (s) (if (pair? s) (gensym) s)) form)))) (else (describe-application form))))) |