From 9446e7e594597de896ab96da050b066bc1cc3d15 Mon Sep 17 00:00:00 2001
From: "Kartik K. Agaram" <vc@akkartik.com>
Date: Wed, 2 Jun 2021 23:58:35 -0700
Subject: .

Drop some low-entropy trace lines.
---
 shell/evaluate.mu | 17 +++++++++++++++--
 1 file changed, 15 insertions(+), 2 deletions(-)

(limited to 'shell/evaluate.mu')

diff --git a/shell/evaluate.mu b/shell/evaluate.mu
index 68ec10fe..f27df21b 100644
--- a/shell/evaluate.mu
+++ b/shell/evaluate.mu
@@ -529,8 +529,21 @@ fn evaluate _in-ah: (addr handle cell), _out-ah: (addr handle cell), env-h: (han
     trace-higher trace
     return
   }
-  trace-text trace, "eval", "function call"
-  trace-text trace, "eval", "evaluating list elements"
+  # trace "evaluate function call elements in " in {{{
+  {
+    var should-trace?/eax: boolean <- should-trace? trace
+    compare should-trace?, 0/false
+    break-if-=
+    var stream-storage: (stream byte 0x300)
+    var stream/ecx: (addr stream byte) <- address stream-storage
+    write stream, "evaluate function call elements in "
+    var nested-trace-storage: trace
+    var nested-trace/edi: (addr trace) <- address nested-trace-storage
+    initialize-trace nested-trace, 1/only-errors, 0x10/capacity, 0/visible
+    print-cell in-ah, stream, nested-trace
+    trace trace, "eval", stream
+  }
+  # }}}
   trace-lower trace
   var evaluated-list-storage: (handle cell)
   var evaluated-list-ah/esi: (addr handle cell) <- address evaluated-list-storage
-- 
cgit 1.4.1-2-gfad0