Oops - used or instead of or/c.

This commit is contained in:
Tony Garnock-Jones 2012-07-04 16:28:19 -04:00
parent 90c00f7595
commit 9d069ab0f3
1 changed files with 3 additions and 3 deletions

View File

@ -265,9 +265,9 @@
(define state/c (not/c transition?))
(define action/c action?)
(define action-tree/c (flat-rec-contract action-tree/c
(or action/c
null?
(cons/c action-tree/c action-tree/c))))
(or/c action/c
null?
(cons/c action-tree/c action-tree/c))))
(define make-add-role add-role) ;; no special treatment required at present
(define (make-delete-role pre-eid [reason #f]) (delete-role pre-eid reason))