diff options
Diffstat (limited to '035location_array.cc')
| -rw-r--r-- | 035location_array.cc | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/035location_array.cc b/035location_array.cc index 86cf8e97..191e6d38 100644 --- a/035location_array.cc +++ b/035location_array.cc @@ -5,19 +5,17 @@ put(Recipe_ordinal, "to-location-array", TO_LOCATION_ARRAY); :(before "End Primitive Recipe Checks") case TO_LOCATION_ARRAY: { const recipe& caller = get(Recipe, r); - if (!is_shared_address_of_array_of_numbers(inst.products.at(0))) { + if (!is_address_of_array_of_numbers(inst.products.at(0))) { raise << maybe(caller.name) << "product of 'to-location-array' has incorrect type: " << to_original_string(inst) << '\n' << end(); break; } break; } :(code) -bool is_shared_address_of_array_of_numbers(reagent product) { +bool is_address_of_array_of_numbers(reagent product) { canonize_type(product); if (!product.type || product.type->value != get(Type_ordinal, "address")) return false; drop_from_type(product, "address"); - if (!product.type || product.type->value != get(Type_ordinal, "shared")) return false; - drop_from_type(product, "shared"); if (!product.type || product.type->value != get(Type_ordinal, "array")) return false; drop_from_type(product, "array"); if (!product.type || product.type->value != get(Type_ordinal, "number")) return false; |