From c19505cd844e9fb14fffadf937bdfee7d52089b4 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Tue, 8 Apr 2008 23:35:28 -0500
Subject: [PATCH] set-os-env on windows

---
 vm/os-windows.c | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/vm/os-windows.c b/vm/os-windows.c
index 664df9e774..b3fc1c917f 100755
--- a/vm/os-windows.c
+++ b/vm/os-windows.c
@@ -215,6 +215,21 @@ void sleep_millis(DWORD msec)
 	Sleep(msec);
 }
 
+DEFINE_PRIMITIVE(set_os_env)
+{
+	char *key = unbox_char_string();
+	REGISTER_C_STRING(key);
+	char *value = unbox_char_string();
+	UNREGISTER_C_STRING(key);
+	SetEnvironmentVariable(key, value);
+}
+
+DEFINE_PRIMITIVE(unset_os_env)
+{
+	char *key = unbox_char_string();
+	SetEnvironmentVariable(key, f);
+}
+
 DEFINE_PRIMITIVE(set_os_envs)
 {
 	not_implemented_error();