summaryrefslogtreecommitdiff
path: root/scheme/guile/geiser/introspection.scm
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-02-17 16:11:33 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-02-17 16:11:33 +0100
commit9f744aa5e4e032cfe413673fa7e875ab16ce8600 (patch)
treeacacd92b14f262a0a551d986cbc258c1d4be40c3 /scheme/guile/geiser/introspection.scm
parent02b4dbe81d4662aaf207677c53b869cc055b06a3 (diff)
downloadgeiser-chez-9f744aa5e4e032cfe413673fa7e875ab16ce8600.tar.gz
geiser-chez-9f744aa5e4e032cfe413673fa7e875ab16ce8600.tar.bz2
Fix in symbol help signature displaying.
Diffstat (limited to 'scheme/guile/geiser/introspection.scm')
-rw-r--r--scheme/guile/geiser/introspection.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/scheme/guile/geiser/introspection.scm b/scheme/guile/geiser/introspection.scm
index 5d86d62..29d059b 100644
--- a/scheme/guile/geiser/introspection.scm
+++ b/scheme/guile/geiser/introspection.scm
@@ -149,7 +149,7 @@
(let* ((args (obj-args obj))
(req (and args (car args)))
(opt (and args (cadr args))))
- (and args (if (not opt) `(,sym ,@req) `(,sym ,@req . ,opt)) sym)))
+ (and args (if (not opt) `(,sym ,@req) `(,sym ,@req . ,opt)))))
(define (symbol-documentation sym)
(let ((obj (symbol->obj sym)))