diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-03-05 02:14:01 +0100 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2009-03-05 02:14:01 +0100 |
| commit | 692eb942c39fd42ffe61f1408a4998d738c88933 (patch) | |
| tree | d4ade4d02c5af29586e9e9e35cc22c90f747a50d /scheme/guile/geiser/doc.scm | |
| parent | f1e7cfe8f0417ed636aca5d17706ea8e91375241 (diff) | |
| download | geiser-chez-692eb942c39fd42ffe61f1408a4998d738c88933.tar.gz geiser-chez-692eb942c39fd42ffe61f1408a4998d738c88933.tar.bz2 | |
generic-methods implemented in scheme (no emacs side yet).
Diffstat (limited to 'scheme/guile/geiser/doc.scm')
| -rw-r--r-- | scheme/guile/geiser/doc.scm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/scheme/guile/geiser/doc.scm b/scheme/guile/geiser/doc.scm index 01b9ce3..f655fd6 100644 --- a/scheme/guile/geiser/doc.scm +++ b/scheme/guile/geiser/doc.scm @@ -26,7 +26,8 @@ (define-module (geiser doc) #:export (autodoc - symbol-documentation) + symbol-documentation + object-signature) #:use-module (geiser utils) #:use-module (geiser modules) #:use-module (system vm program) @@ -51,6 +52,10 @@ (else (describe-application form))))) (else #f))) +(define (object-signature name obj) + (let ((args (obj-args obj))) + (and args (signature name args)))) + (define (describe-application form) (let* ((fun (car form)) (args (obj-args (symbol->object fun)))) |