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

added contract to build-struct-names

Browse Source 
svn: r1928
This commit is contained in:
Robby Findler 2006-01-22 15:46:46 +00:00
parent da843fd06c
commit b270a847a9
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/syntax/struct.ss
View File

@ -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?