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
2016-07-08 19:44:45 +00:00 · 2016-07-08 19:44:45 +00:00 · 45b7d1fa50
parent 4a1a2d2190
commit 45b7d1fa50
1 changed files with 2 additions and 1 deletions
--- 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))