diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2023-06-04 10:12:35 -0700 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2023-06-04 10:12:35 -0700 |
commit | 974bbe651acf6f8be28c749f1b7acb0f0af8fe2a (patch) | |
tree | 376c400d17dd0d63609860ffbda9185bbcaae2dd /autoload.c | |
parent | 35e78942bed148e1a23ffc7eaa50dc38d81f1af9 (diff) | |
download | txr-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.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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); |