1994 - new primitive: 'create-array'

Not strictly necessary, but it might help me stage the introduction of
arrays and 'new'.

1 files changed, 3 insertions, 1 deletions

diff --git a/010vm.cc b/010vm.cc
index 41a63e2c..c9bfaa5d 100644
--- a/010vm.cc
+++ b/010vm.cc
@@ -196,7 +196,9 @@ reagent::reagent(string s) :original_string(s), value(0), initialized(false) {
   name = properties.at(0).first;
   for (long long int i = 0; i < SIZE(properties.at(0).second); ++i) {
     string type = properties.at(0).second.at(i);
-    if (Type_ordinal.find(type) == Type_ordinal.end()) {
+    if (Type_ordinal.find(type) == Type_ordinal.end()
+        // types can contain integers, like for array sizes
+        && !is_integer(type)) {
 //?       cerr << type << " is " << Next_type_ordinal << '\n'; //? 1
       Type_ordinal[type] = Next_type_ordinal++;
     }