From 45b7d1fa50883eb6a3d2c46298d71be4161b2b35 Mon Sep 17 00:00:00 2001
From: ckeen <ckeen@fca3e652-9b03-0410-8d7b-ac86a6ce46c4>
Date: Fri, 8 Jul 2016 19:44:45 +0000
Subject: [PATCH] fastcgi: fix segfault when recieving SIGUSR1 thanks to bcaine

git-svn-id: https://code.call-cc.org/svn/chicken-eggs/release/4/fastcgi/trunk@33467 fca3e652-9b03-0410-8d7b-ac86a6ce46c4
---
 fastcgi.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/fastcgi.scm b/fastcgi.scm
index aa89b0d..b678f0e 100644
--- a/fastcgi.scm
+++ b/fastcgi.scm
@@ -242,7 +242,8 @@
     (let loop ()
       ;; Wait for a connection from the webserver.
       (fcgi-accept-request! req)
-      (and-let* (((callback
+      (and-let* ((_ (fcgi-request-out req))
+                 ((callback
                    (wrap-in-stream (fcgi-request-in req))
                    (wrap-out-stream (fcgi-request-out req))
                    (wrap-out-stream (fcgi-request-error req))