Fix accessor type for with-tr-contracts test

This commit is contained in:
Asumu Takikawa 2015-02-12 23:44:19 -05:00
parent 888893d81b
commit 83dc3884aa

View File

@ -851,7 +851,6 @@
(list (make-arr* (list Univ)
(or (and maybe-type (car maybe-type))
Univ)
#:filters -no-filter
#:object
(make-Path (list (make-FieldPE)) getter-id))))
(-> Univ (or (and maybe-type (car maybe-type)) -Bottom)