Allow sys:var and sys:expr redefinition.

* eval.c (builtin_reject_test): Suppress warning if
the symbol is sys:var or sys:expr.

1 files changed, 2 insertions, 0 deletions

diff --git a/eval.c b/eval.c
index da0a560d..2310c2d0 100644
--- a/eval.c
+++ b/eval.c
@@ -1956,6 +1956,8 @@ static void builtin_reject_test(val op, val sym, val form)
                  op, sym, nao);
     } else if (opt_compat && opt_compat <= 107) {
       /* empty */
+    } else if (sym == expr_s || sym == var_s) {
+      /* empty */
     } else if (builtin_kind) {
       eval_warn(form, lit("~s: redefining ~s, which is a built-in ~s"),
                 op, sym, builtin_kind, nao);