summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--sysif.c7
1 files changed, 5 insertions, 2 deletions
diff --git a/sysif.c b/sysif.c
index cd59cc64..18761e59 100644
--- a/sysif.c
+++ b/sysif.c
@@ -177,8 +177,11 @@ static val env_hash(void)
val hash = make_hash(nil, nil, t);
for (; env_strings; env_strings = cdr(env_strings)) {
- cons_bind (key, val_cons, split_str(car(env_strings), lit("=")));
- sethash(hash, key, car(val_cons));
+ val estr = car(env_strings);
+ val eqpos = break_str(estr, lit("="));
+ val key = sub(estr, 0, eqpos);
+ val val = sub(estr, succ(eqpos), t);
+ sethash(hash, key, val);
}
return hash;