From c23fb152b708697473603c9b893a7fd7a30b6561 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Wed, 19 Dec 2012 23:31:05 +0100
Subject: [PATCH] tests: Remove leftover `pk'.

* test-suite/tests/posix.test ("system*"): Remove `pk'.
---
 test-suite/tests/posix.test | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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