diff options
Diffstat (limited to '027debug.cc')
| -rw-r--r-- | 027debug.cc | 17 |
1 files changed, 16 insertions, 1 deletions
diff --git a/027debug.cc b/027debug.cc index a855aad8..301cd01a 100644 --- a/027debug.cc +++ b/027debug.cc @@ -75,7 +75,22 @@ _DUMP_TRACE, Recipe_ordinal["$dump-trace"] = _DUMP_TRACE; :(before "End Primitive Recipe Implementations") case _DUMP_TRACE: { - DUMP(""); + if (ingredients.empty()) { + DUMP(""); + } + else { + DUMP(current_instruction().ingredients.at(0).name); + } + break; +} + +:(before "End Primitive Recipe Declarations") +_CLEAR_TRACE, +:(before "End Primitive Recipe Numbers") +Recipe_ordinal["$clear-trace"] = _CLEAR_TRACE; +:(before "End Primitive Recipe Implementations") +case _CLEAR_TRACE: { + CLEAR_TRACE; break; } |