raco setup: fix exit code on doc error

2013-11-21 06:44:38 -07:00 · 2013-11-21 06:44:38 -07:00 · 9bb5dda4f5
commit 9bb5dda4f5
parent 2fd6a05d46
1 changed files with 1 additions and 0 deletions
--- 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)))