Only generalize #t, not #f.

2011-08-26 14:08:24 -04:00 · 2011-08-26 14:08:24 -04:00 · 005923c284
commit 005923c284
parent c7ac40f33b
1 changed files with 1 additions and 1 deletions
--- a/collects/typed-scheme/types/convenience.rkt
+++ b/collects/typed-scheme/types/convenience.rkt
@ -56,7 +56,7 @@
               (exit t)))]
        [(ListDots: t bound) (-lst (substitute Univ bound t))]
        [(? (lambda (t) (subtype t -Symbol))) -Symbol]
-        [(or (Value: #f) (Value: #t)) -Boolean]
+        [(Value: #t) -Boolean]
        [_ (exit t)]))))