return #f if get-environment-variable refers undefined env-var
This commit is contained in:
parent
adab797391
commit
15c4361381
|
@ -31,6 +31,9 @@ pic_system_getenv(pic_state *pic)
|
||||||
|
|
||||||
val = getenv(str);
|
val = getenv(str);
|
||||||
|
|
||||||
|
if (val == NULL)
|
||||||
|
return pic_nil_value();
|
||||||
|
else
|
||||||
return pic_str_new_cstr(pic, val);
|
return pic_str_new_cstr(pic, val);
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue