diff options
| -rw-r--r-- | 032array.cc | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/032array.cc b/032array.cc index 0026bf95..7d189749 100644 --- a/032array.cc +++ b/032array.cc @@ -359,16 +359,17 @@ type_tree* array_element(const type_tree* type) { } int array_length(const reagent& x) { + // x should already be canonized. if (!x.type->atom && !x.type->right->atom && x.type->right->right->atom // exactly 3 types && is_integer(x.type->right->right->name)) { // third 'type' is a number // get size from type return to_integer(x.type->right->right->name); } - // this should never happen at transform time - // x should already be canonized. + // we should never get here at transform time return get_or_insert(Memory, x.value); } +:(before "End Unit Tests") void test_array_length_compound() { put(Memory, 1, 3); put(Memory, 2, 14); |