2483 - to-text can now handle lists

'append' also implicitly calls 'to-text' unless there's a better
variant.

1 files changed, 2 insertions, 2 deletions

diff --git a/021check_instruction.cc b/021check_instruction.cc
index 930eacde..76d3ddb2 100644
--- a/021check_instruction.cc
+++ b/021check_instruction.cc
@@ -124,8 +124,8 @@ bool types_match(type_tree* lhs, type_tree* rhs) {
     if (lhs->value == get(Type_ordinal, "address")) return false;
     return size_of(rhs) == size_of(lhs);
   }
-  if (lhs->value == get(Type_ordinal, "character") && rhs->value == get(Type_ordinal, "number")) return true;
-  if (lhs->value == get(Type_ordinal, "number") && rhs->value == get(Type_ordinal, "character")) return true;
+//?   if (lhs->value == get(Type_ordinal, "character") && rhs->value == get(Type_ordinal, "number")) return true;
+//?   if (lhs->value == get(Type_ordinal, "number") && rhs->value == get(Type_ordinal, "character")) return true;
   if (lhs->value != rhs->value) return false;
   return types_match(lhs->left, rhs->left) && types_match(lhs->right, rhs->right);
 }