From 3c3d83d5584da288a2abd22a60ccd3f749a4c4f2 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adam@chlipala.net>
Date: Fri, 7 Mar 2014 11:50:45 -0500
Subject: getenv calls UNIX getenv() when no special alternative is set

---
 src/c/urweb.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/c/urweb.c')

diff --git a/src/c/urweb.c b/src/c/urweb.c
index 5ac5aa55..ffcc0146 100644
--- a/src/c/urweb.c
+++ b/src/c/urweb.c
@@ -3672,7 +3672,7 @@ uw_Basis_string uw_Basis_getenv(uw_context ctx, uw_Basis_string name) {
   if (ctx->get_env)
     return ctx->get_env(ctx->get_env_data, name);
   else
-    return NULL;
+    return getenv(name);
 }
 
 uw_Basis_string uw_unnull(uw_Basis_string s) {
-- 
cgit v1.2.3