From f23cb62f07a4dedf44a25d7ee36963c0944d5277 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Mon, 28 Aug 2017 19:14:34 -0700
Subject: Allow sys:var and sys:expr redefinition.

* eval.c (builtin_reject_test): Suppress warning if
the symbol is sys:var or sys:expr.
---
 eval.c | 2 ++
 1 file changed, 2 insertions(+)

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);
-- 
cgit v1.2.3