From b7bcd4f6872067771612c987f56766478a437aae Mon Sep 17 00:00:00 2001
From: Juan Francisco Cantero Hurtado <iam@juanfra.info>
Date: Tue, 15 Sep 2015 23:17:46 +0200
Subject: [PATCH] Remove extra ')'.

Found by cppcheck.
---
 racket/src/racket/src/port.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/racket/src/racket/src/port.c b/racket/src/racket/src/port.c
index 6645310f9f..8d5ee727f8 100644
--- a/racket/src/racket/src/port.c
+++ b/racket/src/racket/src/port.c
@@ -10288,7 +10288,7 @@ static Scheme_Object *subprocess(int c, Scheme_Object *args[])
 	scheme_contract_error(name,
                               "non-#f port argument not allowed on this platform",
                               "port", 1, args[i],
-                              NULL));
+                              NULL);
     }
 
     if (c > 4) {