diff options
Diffstat (limited to 'archive/2.vm/058to_text.cc')
-rw-r--r-- | archive/2.vm/058to_text.cc | 24 |
1 files changed, 0 insertions, 24 deletions
diff --git a/archive/2.vm/058to_text.cc b/archive/2.vm/058to_text.cc deleted file mode 100644 index 9cb14e14..00000000 --- a/archive/2.vm/058to_text.cc +++ /dev/null @@ -1,24 +0,0 @@ -//: Primitive to convert any type to text (array of characters). -//: Later layers will allow us to override this to do something smarter for -//: specific types. - -:(before "End Primitive Recipe Declarations") -TO_TEXT, -:(before "End Primitive Recipe Numbers") -put(Recipe_ordinal, "to-text", TO_TEXT); -:(before "End Primitive Recipe Checks") -case TO_TEXT: { - if (SIZE(inst.ingredients) != 1) { - raise << maybe(get(Recipe, r).name) << "'to-text' requires a single ingredient, but got '" << to_original_string(inst) << "'\n" << end(); - break; - } - // can handle any type - break; -} -:(before "End Primitive Recipe Implementations") -case TO_TEXT: { - products.resize(1); - products.at(0).push_back(/*alloc id*/0); - products.at(0).push_back(new_mu_text(inspect(current_instruction().ingredients.at(0), ingredients.at(0)))); - break; -} |