1988 - handle reagents without types

This can happen if 'canonize' fails. Make sure it doesn't kill mu.

Thanks Caleb Couch.

1 files changed, 3 insertions, 3 deletions

diff --git a/032array.cc b/032array.cc
index bf51382d..412f6878 100644
--- a/032array.cc
+++ b/032array.cc
@@ -94,7 +94,7 @@ case INDEX: {
     break;
   }
   reagent base = canonize(current_instruction().ingredients.at(0));
-  if (base.types.at(0) != Type_ordinal["array"]) {
+  if (!is_mu_array(base)) {
     raise << current_recipe_name () << ": 'index' on a non-array " << base.original_string << '\n' << end();
     break;
   }
@@ -189,7 +189,7 @@ case INDEX_ADDRESS: {
     break;
   }
   reagent base = canonize(current_instruction().ingredients.at(0));
-  if (base.types.at(0) != Type_ordinal["array"]) {
+  if (!is_mu_array(base)) {
     raise << current_recipe_name () << ": 'index-address' on a non-array " << base.original_string << '\n' << end();
     break;
   }
@@ -264,7 +264,7 @@ case LENGTH: {
     break;
   }
   reagent x = canonize(current_instruction().ingredients.at(0));
-  if (x.types.at(0) != Type_ordinal["array"]) {
+  if (!is_mu_array(x)) {
     raise << "tried to calculate length of non-array " << x.original_string << '\n' << end();
     break;
   }