diff options
Diffstat (limited to '021check_instruction.cc')
-rw-r--r-- | 021check_instruction.cc | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/021check_instruction.cc b/021check_instruction.cc index f1390eb3..3554d253 100644 --- a/021check_instruction.cc +++ b/021check_instruction.cc @@ -203,6 +203,13 @@ bool is_mu_number(reagent/*copy*/ r) { return r.type->value == get(Type_ordinal, "number"); } +bool is_mu_character(reagent/*copy*/ r) { + // End Preprocess is_mu_character(reagent r) + if (!r.type) return false; + if (is_literal(r)) return false; + return r.type->value == get(Type_ordinal, "character"); +} + bool is_mu_scalar(reagent/*copy*/ r) { if (!r.type) return false; if (is_literal(r)) |