From a7323bafa21f8154c2d127c9b66aaa74fc4c1aa7 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Thu, 14 Mar 2019 23:16:41 -0700
Subject: New unchecked setter for function environment.

* lib.c (us_func_set_env): New function: func_set_env without
the type check.

* lib.h (us_func_set_env): Declared.
---
 lib.c | 6 ++++++
 lib.h | 1 +
 2 files changed, 7 insertions(+)

diff --git a/lib.c b/lib.c
index da8e0bf7..6e09308c 100644
--- a/lib.c
+++ b/lib.c
@@ -6432,6 +6432,12 @@ val func_set_env(val fun, val env)
   return env;
 }
 
+val us_func_set_env(val fun, val env)
+{
+  set(mkloc(fun->f.env, fun), env);
+  return env;
+}
+
 val functionp(val obj)
 {
   return type(obj) == FUN ? t : nil;
diff --git a/lib.h b/lib.h
index 6b8c0b0a..c9b6198f 100644
--- a/lib.h
+++ b/lib.h
@@ -948,6 +948,7 @@ val copy_fun(val ofun);
 val func_get_form(val fun);
 val func_get_env(val fun);
 val func_set_env(val fun, val env);
+val us_func_set_env(val fun, val env);
 val functionp(val);
 val interp_fun_p(val);
 val vm_fun_p(val);
-- 
cgit v1.2.3