}
###### propagate exec cases
- case Xval:
- {
- struct val *val = cast(val, prog);
- if (!type_compat(type, val->val.type, rules)) {
- type_err(c, "error: expected %1%r found %2",
- prog, type, rules, val->val.type);
- *ok = 0;
- }
- return val->val.type;
+ case Xval:
+ {
+ struct val *val = cast(val, prog);
+ if (!type_compat(type, val->val.type, rules)) {
+ type_err(c, "error: expected %1%r found %2",
+ prog, type, rules, val->val.type);
+ *ok = 0;
}
+ return val->val.type;
+ }
###### interp exec cases
case Xval: