From fb5b723fb7da2824a29cac475381056e3dfe1d52 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Tue, 29 Nov 2016 22:38:23 -0800 Subject: 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. --- txr.c | 2 ++ 1 file changed, 2 insertions(+) (limited to 'txr.c') 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); -- cgit v1.2.3