about summary refs log tree commit diff stats
diff options
context:
space:
mode:
authorKartik K. Agaram <vc@akkartik.com>2021-04-19 21:19:56 -0700
committerKartik K. Agaram <vc@akkartik.com>2021-04-19 21:19:56 -0700
commitfb3967876c8b97ebf8a7ad5570623a8a4c6dead6 (patch)
tree90c4e4d382b17a1d23c654cb35db4e4d0f87a1c4
parent34596b6ee9811a3f1a5bf94d307f6527cb7467b1 (diff)
downloadmu-fb3967876c8b97ebf8a7ad5570623a8a4c6dead6.tar.gz
deemphasize fn arg evaluation slightly
-rw-r--r--shell/evaluate.mu2
1 files changed, 2 insertions, 0 deletions
diff --git a/shell/evaluate.mu b/shell/evaluate.mu
index 8dd794db..250dbd4e 100644
--- a/shell/evaluate.mu
+++ b/shell/evaluate.mu
@@ -220,6 +220,7 @@ fn evaluate _in: (addr handle cell), out: (addr handle cell), env-h: (handle cel
   }
   trace-text trace, "eval", "function call"
   trace-text trace, "eval", "evaluating list elements"
+  trace-lower trace
   var evaluated-list-storage: (handle cell)
   var evaluated-list-ah/esi: (addr handle cell) <- address evaluated-list-storage
   var curr-out-ah/edx: (addr handle cell) <- copy evaluated-list-ah
@@ -241,6 +242,7 @@ fn evaluate _in: (addr handle cell), out: (addr handle cell), env-h: (handle cel
     curr <- copy right
     loop
   }
+  trace-higher trace
   var evaluated-list/eax: (addr cell) <- lookup *evaluated-list-ah
   var function-ah/ecx: (addr handle cell) <- get evaluated-list, left
   var args-ah/edx: (addr handle cell) <- get evaluated-list, right