diff options
| author | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2012-09-08 20:05:15 +0200 |
|---|---|---|
| committer | Jose Antonio Ortega Ruiz <jao@gnu.org> | 2012-09-08 20:05:15 +0200 |
| commit | 5e1e9373efcd937635eea68c94d52aa00f4c565d (patch) | |
| tree | 0a539982ff0a9f097ee37bb6ae1b554ee859e941 | |
| parent | 977335378247e8c7df0594fc300cb82c4ce6bbc7 (diff) | |
| download | geiser-guile-5e1e9373efcd937635eea68c94d52aa00f4c565d.tar.gz geiser-guile-5e1e9373efcd937635eea68c94d52aa00f4c565d.tar.bz2 | |
racket: autodoc for PLAI's define-type
| -rw-r--r-- | scheme/racket/geiser/autodoc.rkt | 4 |
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) |