20 lines
770 B
Racket
20 lines
770 B
Racket
#lang scheme/base
|
|
(require "core.rkt"
|
|
"private/provide-structs.rkt"
|
|
racket/contract/base)
|
|
|
|
(provide-structs
|
|
[module-path-index-desc ()]
|
|
[exported-index-desc ([name symbol?]
|
|
[from-libs (listof module-path?)])]
|
|
[(method-index-desc exported-index-desc) ([method-name symbol?]
|
|
[class-tag tag?])]
|
|
[(constructor-index-desc exported-index-desc) ([class-tag tag?])]
|
|
[(procedure-index-desc exported-index-desc) ()]
|
|
[(thing-index-desc exported-index-desc) ()]
|
|
[(struct-index-desc exported-index-desc) ()]
|
|
[(form-index-desc exported-index-desc) ()]
|
|
[(class-index-desc exported-index-desc) ()]
|
|
[(interface-index-desc exported-index-desc) ()]
|
|
[(mixin-index-desc exported-index-desc) ()])
|