diff options
author | Kartik K. Agaram <vc@akkartik.com> | 2016-08-17 08:24:19 -0700 |
---|---|---|
committer | Kartik K. Agaram <vc@akkartik.com> | 2016-08-17 08:24:19 -0700 |
commit | db69ad7a38d9ff1c2bb5b1a2274514d2bdc44d1b (patch) | |
tree | 22139431bddda0b8b1664ff6509fef87c01197b7 /021check_instruction.cc | |
parent | 067c8ed66c9bd4e9b4c936b54df293c665afa9bc (diff) | |
download | mu-db69ad7a38d9ff1c2bb5b1a2274514d2bdc44d1b.tar.gz |
3210 - new primitive: character-to-code
Thanks Ella Couch; this was long overdue.
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)) |