
Changing `HashTableTop` from a singleton to the union: ``` (U (Immutable-HashTable Any Any) MutableHashTable WeakHashTable) ``` is a backwards compatibility issue because the type `Any` requires a chaperone, therefore `HashTableTop` requires a chaperone. This commit adds a case to make sure `HashTableTop` generates a flat contract.
7 lines
142 B
Racket
7 lines
142 B
Racket
#lang typed/racket/base
|
|
|
|
;; Test that `HashTableTop` generates a flat contract
|
|
|
|
(define h : HashTableTop (hash))
|
|
(void (cast h HashTableTop))
|