From e53778d5d8e40c54259ba14759a237449b8be8b1 Mon Sep 17 00:00:00 2001
From: Calvin Rose <calsrose@gmail.com>
Date: Mon, 14 Jan 2019 12:08:13 -0500
Subject: [PATCH] Remove annoying (fiber) text from stacktrace.

---
 src/core/core.janet | 3 +--
 src/core/run.c      | 3 +--
 2 files changed, 2 insertions(+), 4 deletions(-)

diff --git a/src/core/core.janet b/src/core/core.janet
index c6c8c8f1..b98c8857 100644
--- a/src/core/core.janet
+++ b/src/core/core.janet
@@ -1475,7 +1475,6 @@ value, one key will be ignored."
   (when f
     (loop
       [nf :in (reverse (debug/lineage f))
-       :before (file/write stderr "  (fiber)\n")
        {:function func
         :tail tail
         :pc pc
@@ -1484,7 +1483,7 @@ value, one key will be ignored."
         :source source
         :source-start start
         :source-end end} :in (debug/stack nf)]
-      (file/write stderr "    in")
+      (file/write stderr "  in")
       (when c (file/write stderr " cfunction"))
       (if name
         (file/write stderr " " name)
diff --git a/src/core/run.c b/src/core/run.c
index a3c4b389..9595cf20 100644
--- a/src/core/run.c
+++ b/src/core/run.c
@@ -39,12 +39,11 @@ void janet_stacktrace(JanetFiber *fiber, const char *errtype, Janet err) {
     for (fi = janet_v_count(fibers) - 1; fi >= 0; fi--) {
         fiber = fibers[fi];
         int32_t i = fiber->frame;
-        if (i > 0) fprintf(stderr, "  (fiber)\n");
         while (i > 0) {
             JanetStackFrame *frame = (JanetStackFrame *)(fiber->data + i - JANET_FRAME_SIZE);
             JanetFuncDef *def = NULL;
             i = frame->prevframe;
-            fprintf(stderr, "    in");
+            fprintf(stderr, "  in");
             if (frame->func) {
                 def = frame->func->def;
                 fprintf(stderr, " %s", def->name ? (const char *)def->name : "<anonymous>");