@ -265,7 +265,7 @@
(define state/c (not/c transition?))
(define action/c action?)
(define action-tree/c (flat-rec-contract action-tree/c
(or action/c
(or/c action/c
null?
(cons/c action-tree/c action-tree/c))))