summaryrefslogtreecommitdiffstats
path: root/autoload.c
diff options
context:
space:
mode:
authorKaz Kylheku <kaz@kylheku.com>2023-06-04 10:12:35 -0700
committerKaz Kylheku <kaz@kylheku.com>2023-06-04 10:12:35 -0700
commit974bbe651acf6f8be28c749f1b7acb0f0af8fe2a (patch)
tree376c400d17dd0d63609860ffbda9185bbcaae2dd /autoload.c
parent35e78942bed148e1a23ffc7eaa50dc38d81f1af9 (diff)
downloadtxr-974bbe651acf6f8be28c749f1b7acb0f0af8fe2a.tar.gz
txr-974bbe651acf6f8be28c749f1b7acb0f0af8fe2a.tar.bz2
txr-974bbe651acf6f8be28c749f1b7acb0f0af8fe2a.zip
compiler: new compiler option log-level
With log-level, we can obtain trace messages about what file is being compiled and individual forms within that file. * autoload.c (compiler_set_entries): Intern the slot symbol log-level. * stdlib/compiler.tl (compile-opts): New slot, log-level. (%warning-syms%): Add log-level to %warning-syms%. Probably we need to rename this variable. (compile-file-conditionally): Implement the two log level messages. (with-compile-opts): Allow/recognize integer option values. * txr.1: Documented.
Diffstat (limited to 'autoload.c')
-rw-r--r--autoload.c2
1 files changed, 1 insertions, 1 deletions
diff --git a/autoload.c b/autoload.c
index a8b5de56..1d8fa26e 100644
--- a/autoload.c
+++ b/autoload.c
@@ -673,7 +673,7 @@ static val compiler_set_entries(val fun)
};
val slname[] = {
lit("shadow-fun"), lit("shadow-var"), lit("shadow-cross"),
- lit("unused"), nil
+ lit("unused"), lit("log-level"), nil
};
autoload_sys_set(al_struct, sys_name, fun);
autoload_set(al_struct, sname, fun);