From db69ad7a38d9ff1c2bb5b1a2274514d2bdc44d1b Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Wed, 17 Aug 2016 08:24:19 -0700 Subject: 3210 - new primitive: character-to-code Thanks Ella Couch; this was long overdue. --- 021check_instruction.cc | 7 +++++++ 1 file changed, 7 insertions(+) (limited to '021check_instruction.cc') 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)) -- cgit 1.4.1-2-gfad0