mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-01-13 09:00:26 +00:00
Code Issues 1 Releases Wiki Activity

Fix #636

Browse Source
This commit is contained in:
Calvin Rose 2021-02-14 14:34:52 -06:00
parent 6713b23a65
commit 7e2c433abc
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/core/os.c
View File

@ -941,7 +941,6 @@ static Janet os_execute_impl(int32_t argc, Janet *argv, int is_spawn) {
janet_unlock_environ(); janet_unlock_environ();
} }
/* Wait for child */
os_execute_cleanup(envp, child_argv); os_execute_cleanup(envp, child_argv);
if (status) { if (status) {
janet_panicf("%p: %s", argv[0], strerror(errno)); janet_panicf("%p: %s", argv[0], strerror(errno));

3
test/suite0010.janet
View File

@ -143,4 +143,7 @@
(assert (< 100 1e23) "greater than immediate 1") (assert (< 100 1e23) "greater than immediate 1")
(assert (< 1000 1e23) "greater than immediate 2") (assert (< 1000 1e23) "greater than immediate 2")
# os/execute with environment variables
(assert (= 0 (os/execute [(dyn :executable) "-e" "(+ 1 2 3)"] :pe {"HELLO" "WORLD"})) "os/execute with env")
(end-suite) (end-suite)