From 974bbe651acf6f8be28c749f1b7acb0f0af8fe2a Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Sun, 4 Jun 2023 10:12:35 -0700 Subject: 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. --- autoload.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'autoload.c') 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); -- cgit v1.2.3