From 7ec9cb0274af5538f50d515a47bf5403b2b252b8 Mon Sep 17 00:00:00 2001
From: Robby Findler <robby@racket-lang.org>
Date: Wed, 7 May 2014 09:34:39 -0500
Subject: [PATCH] fix generator for or/c

---
 racket/collects/racket/contract/private/orc.rkt | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/racket/collects/racket/contract/private/orc.rkt b/racket/collects/racket/contract/private/orc.rkt
index f5376a3dba..17295dea4b 100644
--- a/racket/collects/racket/contract/private/orc.rkt
+++ b/racket/collects/racket/contract/private/orc.rkt
@@ -158,7 +158,8 @@
                 option env
                 (λ () 
                   (loop (cdr options))))]
-              [else (option)])])))]))
+              [else (option)])])))]
+    [else #f]))
 
 (define-struct single-or/c (name pred flat-ctcs ho-ctc)
   #:property prop:orc-contract