2864 - replace all address:shared with just address

Now that we no longer have non-shared addresses, we can just always
track refcounts for all addresses.

Phew!

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;