about summary refs log tree commit diff stats
path: root/032array.cc
diff options
context:
space:
mode:
authorKartik K. Agaram <vc@akkartik.com>2016-04-23 22:11:48 -0700
committerKartik K. Agaram <vc@akkartik.com>2016-04-24 00:35:50 -0700
commitc9a5a7badacd8dba9b5d7cf683301c8ead4b1f12 (patch)
tree3062a12c4fda9757ef633e56f0abc8b8efbe594b /032array.cc
parent7bf9212fd47e505711cc0873d30456e3d793034d (diff)
downloadmu-c9a5a7badacd8dba9b5d7cf683301c8ead4b1f12.tar.gz
2862
Layers 0-29 are now a complete rudimentary platform except for pointers
and indirection.
Diffstat (limited to '032array.cc')
-rw-r--r--032array.cc14
1 files changed, 0 insertions, 14 deletions
diff --git a/032array.cc b/032array.cc
index e54b7ea6..44d063d9 100644
--- a/032array.cc
+++ b/032array.cc
@@ -465,17 +465,3 @@ case LENGTH: {
 recipe_ordinal r = current_instruction().operation;
 if (r == CREATE_ARRAY || r == INDEX || r == PUT_INDEX || r == LENGTH)
   return false;
-
-//: a particularly common array type is the string, or address:array:character
-:(code)
-bool is_mu_string(const reagent& x) {
-  return x.type
-    && x.type->value == get(Type_ordinal, "address")
-    && x.type->right
-    && x.type->right->value == get(Type_ordinal, "shared")
-    && x.type->right->right
-    && x.type->right->right->value == get(Type_ordinal, "array")
-    && x.type->right->right->right
-    && x.type->right->right->right->value == get(Type_ordinal, "character")
-    && x.type->right->right->right->right == NULL;
-}