Add type key to ClassTop.

This commit is contained in:
Eric Dobson 2014-03-20 20:42:10 -07:00
parent ca867bc97f
commit efd27fa4f7

View File

@ -503,7 +503,7 @@
;; Supertype of all Class types, cannot instantiate
;; or subclass these
(def-type ClassTop () [#:fold-rhs #:base])
(def-type ClassTop () [#:fold-rhs #:base] [#:key 'class])
;; row-ext : Option<(U F B Row)>
;; row : Row