added contract to build-struct-names
svn: r1928
This commit is contained in:
parent
da843fd06c
commit
b270a847a9
|
@ -1,12 +1,18 @@
|
||||||
|
|
||||||
(module struct mzscheme
|
(module struct mzscheme
|
||||||
(require (lib "etc.ss")
|
(require (lib "etc.ss")
|
||||||
|
(lib "contract.ss")
|
||||||
"stx.ss")
|
"stx.ss")
|
||||||
(require-for-template mzscheme)
|
(require-for-template mzscheme)
|
||||||
|
|
||||||
|
(provide/contract
|
||||||
|
[build-struct-names
|
||||||
|
(opt-> (identifier? (listof identifier?) boolean? boolean?)
|
||||||
|
((union false/c syntax?))
|
||||||
|
(listof identifier?))])
|
||||||
|
|
||||||
(provide parse-define-struct
|
(provide parse-define-struct
|
||||||
|
|
||||||
build-struct-names
|
|
||||||
build-struct-generation
|
build-struct-generation
|
||||||
build-struct-expand-info
|
build-struct-expand-info
|
||||||
struct-declaration-info?
|
struct-declaration-info?
|
||||||
|
|
Loading…
Reference in New Issue
Block a user