1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-09 13:30:26 +02:00

tests: Remove leftover `pk'.

* test-suite/tests/posix.test ("system*"): Remove `pk'.
This commit is contained in:
Ludovic Courtès 2012-12-19 23:31:05 +01:00
parent 668ba7c955
commit c23fb152b7

View file

@ -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))))))