[nongnu] elpa/geiser-racket e4707d2 105/191: racket: autodoc for PLAI's define-type

[Philip Kaludercic]

branch: elpa/geiser-racket
commit e4707d240808cbd4f70fbaa5b2638dcbd7bd87ea
Author: Jose Antonio Ortega Ruiz <jao@gnu.org>
Commit: Jose Antonio Ortega Ruiz <jao@gnu.org>

    racket: autodoc for PLAI's define-type
---
 geiser/autodoc.rkt | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/geiser/autodoc.rkt b/geiser/autodoc.rkt
index bdd6422..ee5c488 100644
--- a/geiser/autodoc.rkt
+++ b/geiser/autodoc.rkt
@@ -1,6 +1,6 @@
 ;;; autodoc.rkt -- suport for autodoc echo
 
-;; Copyright (C) 2009, 2010, 2011 Jose Antonio Ortega Ruiz
+;; Copyright (C) 2009, 2010, 2011, 2012 Jose Antonio Ortega Ruiz
 
 ;; This program is free software; you can redistribute it and/or
 ;; modify it under the terms of the Modified BSD License. You should
@@ -199,6 +199,8 @@
       [`(define-syntax ,name (lambda ,_ (syntax-case ,_ . ,clauses)))
        (for-each (lambda (c) (add-syntax-signature! name (cdar c) store))
                  (reverse clauses))]
+      [`(define-type ,_ . ,cases)
+       (for-each (lambda (c) (add-signature! (car c) (cdr c) store)) cases)]
       [_ void])))
 
 (define (add-signature! name formals store)