Don't use raw union constructor.

2010-05-12 11:52:43 -04:00 · 2010-05-12 11:52:43 -04:00 · e81cdba69f
commit e81cdba69f
parent 5a8fac0bdf
1 changed files with 5 additions and 6 deletions
--- a/collects/typed-scheme/types/convenience.rkt
+++ b/collects/typed-scheme/types/convenience.rkt
@ -43,12 +43,11 @@
        [_ (exit t)]))))


-;; DO NOT USE if t contains #f
 (define (-opt t) (Un (-val #f) t))

 (define In-Syntax
  (-mu e
-       (*Un (-val null) -Boolean -Symbol -String -Keyword -Char -Number 
+       (Un (-val null) -Boolean -Symbol -String -Keyword -Char -Number 
           (make-Vector (-Syntax e))
           (make-Box (-Syntax e))
           (-lst (-Syntax e))