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

Fix internal-external name mapping for TR classes

Browse Source 
Please merge to v6.0.1
This commit is contained in:
Asumu Takikawa 2014-04-08 15:48:29 -04:00
parent 5eb1110040
commit a11144c8f8
2 changed files with 26 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -292,7 +292,7 @@
(syntax->datum #'cls.augment-externals) (syntax->datum #'cls.augment-externals)
(syntax->datum #'cls.pubment-externals)) (syntax->datum #'cls.pubment-externals))
'all-internal 'all-internal
(set-union (syntax->datum #'cls.init-internals) (append (syntax->datum #'cls.init-internals)
(syntax->datum #'cls.init-field-internals) (syntax->datum #'cls.init-field-internals)
(syntax->datum #'cls.field-internals) (syntax->datum #'cls.field-internals)
(syntax->datum #'cls.public-internals) (syntax->datum #'cls.public-internals)
@ -302,7 +302,7 @@
(syntax->datum #'cls.pubment-internals) (syntax->datum #'cls.pubment-internals)
(syntax->datum #'cls.augment-internals)) (syntax->datum #'cls.augment-internals))
'all-external 'all-external
(set-union (syntax->datum #'cls.init-externals) (append (syntax->datum #'cls.init-externals)
(syntax->datum #'cls.init-field-externals) (syntax->datum #'cls.init-field-externals)
(syntax->datum #'cls.field-externals) (syntax->datum #'cls.field-externals)
(syntax->datum #'cls.public-externals) (syntax->datum #'cls.public-externals)

8
pkgs/typed-racket-pkgs/typed-racket-test/tests/typed-racket/unit-tests/class-tests.rkt
View File

@ -788,6 +788,14 @@
(init ([i j])))) (init ([i j]))))
(new c% [i 5])) (new c% [i 5]))
#:ret (ret (-object #:init ([j -Integer #f])))] #:ret (ret (-object #:init ([j -Integer #f])))]
;; test that different internal names can map to the same external name
;; and that the internal-external name mapping is set correctly.
[tc-e (class object%
(super-new)
(: x* String)
(init [(x* x)])
(field [x "x"]))
(-class #:init ([x -String #f]) #:field ([x Univ]))]
;; test init default values ;; test init default values
[tc-e (let () [tc-e (let ()
(class object% (super-new) (class object% (super-new)