From bb58e1797e8a813891d2ba8ceabcfb518c6f8050 Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Mon, 28 Sep 2015 23:36:39 -0700 Subject: 2214 --- 032array.cc | 28 ---------------------------- 1 file changed, 28 deletions(-) (limited to '032array.cc') diff --git a/032array.cc b/032array.cc index 7ad84367..1b8d5900 100644 --- a/032array.cc +++ b/032array.cc @@ -332,31 +332,3 @@ case LENGTH: { recipe_ordinal r = current_instruction().operation; if (r == CREATE_ARRAY || r == INDEX || r == INDEX_ADDRESS || r == LENGTH) return false; - -:(code) -bool is_mu_array(reagent r) { - if (is_literal(r)) return false; - while (has_property(r, "lookup")) { - if (r.types.empty()) { - raise << "can't lookup non-address: " << r.original_string << '\n' << end(); - return false; - } - if (r.types.at(0) != Type_ordinal["address"]) { - raise << "can't lookup non-address: " << r.original_string << '\n' << end(); - return false; - } - r.types.erase(r.types.begin()); - drop_one_lookup(r); - } - return !r.types.empty() && r.types.at(0) == Type_ordinal["array"]; -} - -void drop_one_lookup(reagent& r) { - for (vector > >::iterator p = r.properties.begin(); p != r.properties.end(); ++p) { - if (p->first == "lookup") { - r.properties.erase(p); - return; - } - } - assert(false); -} -- cgit 1.4.1-2-gfad0