fix generator for or/c

2014-05-07 09:34:39 -05:00 · 2014-05-07 09:34:39 -05:00 · 7ec9cb0274
commit 7ec9cb0274
parent f32bbc134a
1 changed files with 2 additions and 1 deletions
--- 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