diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-02-17 16:11:33 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-02-17 16:11:33 +0100 |
| commit | 9f744aa5e4e032cfe413673fa7e875ab16ce8600 (patch) | |
| tree | acacd92b14f262a0a551d986cbc258c1d4be40c3 /scheme/guile/geiser/introspection.scm | |
| parent | 02b4dbe81d4662aaf207677c53b869cc055b06a3 (diff) | |
| download | geiser-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.scm | 2 |
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))) |