diff options
Diffstat (limited to 'test-suite')
-rw-r--r-- | test-suite/tests/posix.test | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/test-suite/tests/posix.test b/test-suite/tests/posix.test index ebfb20ed4..00e9c682e 100644 --- a/test-suite/tests/posix.test +++ b/test-suite/tests/posix.test @@ -209,5 +209,5 @@ ;; With Guile up to 2.0.7 included, the child process launched by ;; `system*' would remain alive after an `execvp' failure. (let ((me (getpid))) - (and (not (zero? (pk (system* "something-that-does-not-exist")))) + (and (not (zero? (system* "something-that-does-not-exist"))) (= me (getpid)))))) |