diff options
Diffstat (limited to '032array.cc')
-rw-r--r-- | 032array.cc | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/032array.cc b/032array.cc index e54b7ea6..44d063d9 100644 --- a/032array.cc +++ b/032array.cc @@ -465,17 +465,3 @@ case LENGTH: { recipe_ordinal r = current_instruction().operation; if (r == CREATE_ARRAY || r == INDEX || r == PUT_INDEX || r == LENGTH) return false; - -//: a particularly common array type is the string, or address:array:character -:(code) -bool is_mu_string(const reagent& x) { - return x.type - && x.type->value == get(Type_ordinal, "address") - && x.type->right - && x.type->right->value == get(Type_ordinal, "shared") - && x.type->right->right - && x.type->right->right->value == get(Type_ordinal, "array") - && x.type->right->right->right - && x.type->right->right->right->value == get(Type_ordinal, "character") - && x.type->right->right->right->right == NULL; -} |