diff --git a/sys/vane/ford.hoon b/sys/vane/ford.hoon index cf7d26fc5..12d9a285f 100644 --- a/sys/vane/ford.hoon +++ b/sys/vane/ford.hoon @@ -4362,9 +4362,13 @@ (wrap-error call-result) :: =/ product=vase vase.u.call-result - :: TODO: why do we check nesting here? + :: +grab might produce the wrong type :: - ?> (~(nest ut p.mark-sample) | p.product) + ?. (~(nest ut p.mark-sample) | p.product) + %- return-error + :~ leaf+"ford: %vale failed" + leaf+"+grab has wrong type in mark {} on disc {}" + == :: check mold idempotence; if different, nest fail :: ?: =(q.product input)