tests: Remove leftover `pk'.

* test-suite/tests/posix.test ("system*"): Remove `pk'.

diff --git a/test-suite/tests/posix.test b/test-suite/tests/posix.test
index ebfb20e..00e9c68 100644 (file)
--- 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))))))