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 | af8296f04700d0b0c2ba16cc4fd91ecae0256477 (patch) | |
| tree | 54e0a5bfbb50c5d10ca51683cffaf56768cce358 /geiser/doc.scm | |
| parent | eeda11c6b9191989e49fa194408c2688c99696ee (diff) | |
| download | geiser-guile-af8296f04700d0b0c2ba16cc4fd91ecae0256477.tar.gz geiser-guile-af8296f04700d0b0c2ba16cc4fd91ecae0256477.tar.bz2 | |
generic-methods implemented in scheme (no emacs side yet).
Diffstat (limited to 'geiser/doc.scm')
| -rw-r--r-- | geiser/doc.scm | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/geiser/doc.scm b/geiser/doc.scm index 01b9ce3..f655fd6 100644 --- a/geiser/doc.scm +++ b/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)))) |