1
Fork 0

Strip outer 'mutable' off slot when deciding if pred can apply.

This commit is contained in:
Graydon Hoare 2010-07-01 21:20:30 -07:00
parent 2d40bc669c
commit 01cfcfab13

View file

@ -68,9 +68,10 @@ let determine_constr_key
if referent_is_slot cx aid if referent_is_slot cx aid
then then
if type_has_state if type_has_state
(slot_ty (get_slot cx aid)) (strip_mutable_or_constrained_ty
(slot_ty (get_slot cx aid)))
then err (Some aid) then err (Some aid)
"predicate applied to slot of mutable type" "predicate applied to slot of state type"
else aid else aid
else else
(* Items are always constant, they're ok. (* Items are always constant, they're ok.