From f46ff43283a70b77d2c76fd37a415ab506b0f78c Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Fri, 9 May 2025 21:44:01 -0700
Subject: trace: need autoload on sys:*trace-level*.

* autoload.c (trace_set_entries): Add sys:*trace-level*
symbol as autoload trigger. Compiled code which uses
the :trace parameter macro references this variable
(and some other internal trace symbols, but that one
first).
---
 autoload.c | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'autoload.c')

diff --git a/autoload.c b/autoload.c
index 84376173..32e24e5c 100644
--- a/autoload.c
+++ b/autoload.c
@@ -396,6 +396,10 @@ static val build_instantiate(void)
 
 static val trace_set_entries(val fun)
 {
+  val sys_vname[] = {
+    lit("*trace-level*"),
+    nil
+  };
   val sys_name[] = {
     lit("trace"), lit("untrace"), nil
   };
@@ -408,6 +412,7 @@ static val trace_set_entries(val fun)
   val kname[] = {
     lit("trace"), nil
   };
+  autoload_sys_set(al_var, sys_vname, fun);
   autoload_sys_set(al_fun, sys_name, fun);
   autoload_set(al_var, vname, fun);
   autoload_set(al_fun, name, fun);
-- 
cgit v1.2.3