Expose compat option value as sys:compat variable.

* txr.c (compat): Update sys:compat variable with
actual value.
(txr_main): Register sys:compat variable with
default zero value.

1 files changed, 2 insertions, 0 deletions

diff --git a/txr.c b/txr.c
index 9bc3d5fe..ed089ce1 100644
--- a/txr.c
+++ b/txr.c
@@ -435,6 +435,7 @@ static int compat(val optval)
 
   sysroot_compat_fixup(compat);
   opt_compat = compat;
+  reg_varl(intern(lit("compat"), system_package), num(compat));
   return 1;
 }
 
@@ -516,6 +517,7 @@ int txr_main(int argc, char **argv)
   while (*argv)
     arg_tail = list_collect(arg_tail, string_utf8(*argv++));
 
+  reg_varl(intern(lit("compat"), system_package), zero);
   reg_var(intern(lit("*full-args*"), user_package), arg_list);
   reg_var(intern(lit("*args-full*"), user_package), arg_list);