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

Make racket/private/serialize-struct cross-phase (#2270)

Browse Source 
This makes sense because a serializable struct should probably remain
serializable, even if it was inserted into a bit o' 3d syntax.
This commit is contained in:
Leif Andersen 2018-10-30 15:41:08 -04:00 committed by GitHub
parent e5ea77f802
commit 209a90d281
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 28 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

36
racket/collects/racket/private/serialize-structs.rkt
View File

@ -1,18 +1,38 @@
(module serialize-structs racket/base
(module serialize-structs '#%kernel
(#%declare #:cross-phase-persistent)
;; Exports just the structre info, which is needed in
;; "class.rkt" (which is, in turn, ultimately required by
;; "serialize.rkt")
(provide
(protect-out
(struct-out serialize-info)
(struct-out deserialize-info)
prop:serializable serializable-struct? serializable-info))
(#%provide (protect (all-defined)))
(define-struct serialize-info (vectorizer deserialize-id can-cycle? dir))
(define-values (struct:serialize-info
make-serialize-info
serialize-info?
serialize-info-vectorizer
serialize-info-deserialize-id
serialize-info-can-cycle?
serialize-info-dir)
(let-values ([(struct: make- ? -ref -set!)
(make-struct-type 'serialize-info #f 4 0 #f '() (current-inspector) #f '(0 1 2 3) #f 'serialize-info)])
(values struct:
make-
?
(make-struct-field-accessor -ref 0 'vectorizer)
(make-struct-field-accessor -ref 1 'deserialize-id)
(make-struct-field-accessor -ref 2 'can-cycle?)
(make-struct-field-accessor -ref 3 'dir))))
(define-struct deserialize-info (maker cycle-maker))
(define-values (struct:deserialize-info
make-deserialize-info
deserialize-info?
deserialize-info-maker
deserialize-info-cycle-maker)
(let-values ([(struct: make- ? -ref -set!)
(make-struct-type 'deserialize-info #f 2 0 #f '() (current-inspector) #f '(0 1) #f 'deserialize-info)])
(values struct: make- ? (make-struct-field-accessor -ref 0 'maker) (make-struct-field-accessor -ref '1 'cycle-maker))))
(define-values (prop:serializable serializable-struct? serializable-info)
(make-struct-type-property 'serializable #f)))