From af8296f04700d0b0c2ba16cc4fd91ecae0256477 Mon Sep 17 00:00:00 2001
From: Jose Antonio Ortega Ruiz <jao@gnu.org>
Date: Thu, 5 Mar 2009 02:14:01 +0100
Subject: generic-methods implemented in scheme (no emacs side yet).

---
 geiser/doc.scm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

(limited to 'geiser/doc.scm')

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))))
-- 
cgit v1.2.3