suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Simplify type expression

Browse Source
This commit is contained in:
Asumu Takikawa 2013-08-26 14:19:24 -04:00
parent e52256b7f0
commit 80d21e106c
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
pkgs/typed-racket-pkgs/typed-racket-lib/typed-racket/typecheck/check-class-unit.rkt
View File

@ -639,11 +639,11 @@
(dict-ref internal-external-mapping f))) (dict-ref internal-external-mapping f)))
(define maybe-type (dict-ref type-map external #f)) (define maybe-type (dict-ref type-map external #f))
(values (values
(->* (list (make-Univ)) (or (and maybe-type (car maybe-type)) (-> (make-Univ) (or (and maybe-type (car maybe-type))
(make-Univ))) (make-Univ)))
(->* (list (make-Univ) (or (and maybe-type (car maybe-type)) (-> (make-Univ) (or (and maybe-type (car maybe-type))
-Bottom)) -Bottom)
-Void)))) -Void))))
(define-values (field-get-types field-set-types) (define-values (field-get-types field-set-types)
(make-field-types (hash-ref parse-info 'field-internals) fields)) (make-field-types (hash-ref parse-info 'field-internals) fields))