Fix accessor type for with-tr-contracts test
This commit is contained in:
parent
888893d81b
commit
83dc3884aa
|
@ -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)
|
||||
|
|
Loading…
Reference in New Issue
Block a user