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

export checked-struct-info?

Browse Source 
svn: r9300
This commit is contained in:
Matthew Flatt 2008-04-14 19:20:58 +00:00
parent 1039055628
commit 46b8b435ca
2 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/scheme/private/define-struct.ss
View File

@ -21,7 +21,7 @@
checked-struct-info-rec?
checked-struct-info-ref
checked-struct-info-set!)
(make-struct-type 'struct-info struct:struct-info
(make-struct-type 'checked-struct-info struct:struct-info
0 0 #f
null (current-inspector)
(lambda (v stx)

6
collects/scheme/struct-info.ss
View File

@ -1,4 +1,6 @@
(module struct-info '#%kernel
(#%require "private/struct-info.ss")
(#%provide (all-from "private/struct-info.ss")))
(#%require "private/struct-info.ss"
(for-template "private/define-struct.ss"))
(#%provide (all-from "private/struct-info.ss")
checked-struct-info?))