Hide deprecated, undocumented variables.

* arith.c (arith_init): Do not define *flo-dig*, *flo-max*,
*flo-min*, *flo-epsilon*, *pi* and *e* unless compatibility
with TXR 199 or earlier is requested.

* txr.c (txr_main): Likewise for *self-path*.

* txr.1: Compat note added.

1 files changed, 2 insertions, 1 deletions

diff --git a/txr.c b/txr.c
index 1ef43001..9dda1cc6 100644
--- a/txr.c
+++ b/txr.c
@@ -1022,7 +1022,8 @@ int txr_main(int argc, char **argv)
 
     opt_loglevel = match_loglevel;
 
-    reg_var(intern(lit("*self-path*"), user_package), spec_file_str);
+    if (opt_compat && opt_compat <= 199)
+      reg_var(intern(lit("*self-path*"), user_package), spec_file_str);
 
     if (parser.errors) {
       if (enter_repl)