From 9f744aa5e4e032cfe413673fa7e875ab16ce8600 Mon Sep 17 00:00:00 2001 From: Jose Antonio Ortega Ruiz Date: Tue, 17 Feb 2009 16:11:33 +0100 Subject: Fix in symbol help signature displaying. --- scheme/guile/geiser/introspection.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'scheme') 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))) -- cgit v1.2.3