Remove unnecessary type->contract case

2013-04-05 16:44:04 -04:00 · 2013-04-05 16:44:04 -04:00 · 9eaf5aaddb
commit 9eaf5aaddb
parent 0161dfdf16
1 changed files with 0 additions and 1 deletions
--- a/collects/typed-racket/private/type-contract.rkt
+++ b/collects/typed-racket/private/type-contract.rkt
@ -379,7 +379,6 @@
                                #,(contract-kind->keyword
 				   (current-contract-kind)))])
                   n*))))]
-        [(Value: #f) #'false/c]
        [(Instance: (? Mu? t))
         (t->c (make-Instance (resolve-once t)))]
        [(Instance: (Class: _ _ (list (list name fcn) ...)))