mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-07-06 12:02:53 +00:00
Code Issues 1 Releases Wiki Activity

Trace function to the stderr

Browse Source
This commit is contained in:
Josef Pospíšil 2022-07-01 12:23:25 +02:00
parent 9bde57854a
commit 94a506876f
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/core/vm.c
View File

@ -220,14 +220,14 @@
/* Trace a function call */ /* Trace a function call */
static void vm_do_trace(JanetFunction *func, int32_t argc, const Janet *argv) { static void vm_do_trace(JanetFunction *func, int32_t argc, const Janet *argv) {
if (func->def->name) { if (func->def->name) {
janet_printf("trace (%S", func->def->name); janet_eprintf("trace (%S", func->def->name);
} else { } else {
janet_printf("trace (%p", janet_wrap_function(func)); janet_eprintf("trace (%p", janet_wrap_function(func));
} }
for (int32_t i = 0; i < argc; i++) { for (int32_t i = 0; i < argc; i++) {
janet_printf(" %p", argv[i]); janet_eprintf(" %p", argv[i]);
} }
janet_printf(")\n"); janet_eprintf(")\n");
} }
/* Invoke a method once we have looked it up */ /* Invoke a method once we have looked it up */