Compatibility <= 107 allows redefinition of builtins.

* eval.c (builtin_reject_test): Suppress the diagnostic against
redefinition of built-in macros and operators if the compatibility
is 107 or lower. The rejection appeared in 108.

* txr.1: Document this compatibility behavior.

1 files changed, 2 insertions, 0 deletions

diff --git a/eval.c b/eval.c
index 3800c6ca..c792e99e 100644
--- a/eval.c
+++ b/eval.c
@@ -1469,6 +1469,8 @@ static void builtin_reject_test(val op, val sym, val form)
     if (!bindable(sym)) {
       eval_error(form, lit("~s: cannot bind ~s, which is not a bindable symbol"),
                  is_operator, sym, nao);
+    } else if (opt_compat && opt_compat <= 107) {
+      /* empty */
     } else if (builtin_kind) {
       eval_error(form, lit("~s: cannot bind ~s, which is a built-in ~s"),
                  op, sym, builtin_kind, nao);