summaryrefslogtreecommitdiff
path: root/scheme
diff options
context:
space:
mode:
authorJose Antonio Ortega Ruiz <jao@gnu.org>2012-09-08 20:05:15 +0200
committerJose Antonio Ortega Ruiz <jao@gnu.org>2012-09-08 20:05:15 +0200
commit5e1e9373efcd937635eea68c94d52aa00f4c565d (patch)
tree0a539982ff0a9f097ee37bb6ae1b554ee859e941 /scheme
parent977335378247e8c7df0594fc300cb82c4ce6bbc7 (diff)
downloadgeiser-chez-5e1e9373efcd937635eea68c94d52aa00f4c565d.tar.gz
geiser-chez-5e1e9373efcd937635eea68c94d52aa00f4c565d.tar.bz2
racket: autodoc for PLAI's define-type
Diffstat (limited to 'scheme')
-rw-r--r--scheme/racket/geiser/autodoc.rkt4
1 files changed, 3 insertions, 1 deletions
diff --git a/scheme/racket/geiser/autodoc.rkt b/scheme/racket/geiser/autodoc.rkt
index bdd6422..ee5c488 100644
--- a/scheme/racket/geiser/autodoc.rkt
+++ b/scheme/racket/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)