From 9bb5dda4f5c795385432efa0278a5b001ac3ba53 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 21 Nov 2013 06:44:38 -0700
Subject: [PATCH] raco setup: fix exit code on doc error

---
 racket/collects/setup/setup-core.rkt | 1 +
 1 file changed, 1 insertion(+)

diff --git a/racket/collects/setup/setup-core.rkt b/racket/collects/setup/setup-core.rkt
index b12b5a8ee7..c9c5ade3e3 100644
--- a/racket/collects/setup/setup-core.rkt
+++ b/racket/collects/setup/setup-core.rkt
@@ -1191,6 +1191,7 @@
     (set-doc:verbose)
     (with-handlers ([exn:fail?
                      (lambda (exn)
+                       (set! exit-code 1)
                        (setup-printf #f "docs failure: ~a" (exn->string exn)))])
       (define auto-start-doc?
         (or (and (not (null? (archives)))