summaryrefslogtreecommitdiff
path: root/scheme/guile/geiser/doc.scm
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2009-03-05 02:14:01 +0100
committerJose Antonio Ortega Ruiz <jao@gnu.org>2009-03-05 02:14:01 +0100
commit692eb942c39fd42ffe61f1408a4998d738c88933 (patch)
treed4ade4d02c5af29586e9e9e35cc22c90f747a50d /scheme/guile/geiser/doc.scm
parentf1e7cfe8f0417ed636aca5d17706ea8e91375241 (diff)
downloadgeiser-guile-692eb942c39fd42ffe61f1408a4998d738c88933.tar.gz
geiser-guile-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.scm7
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))))