14 lines
386 B
Scheme
14 lines
386 B
Scheme
#lang scheme
|
|
(require scheme/serialize
|
|
web-server/stuffers/stuffer
|
|
"../private/util.ss"
|
|
"../private/mod-map.ss")
|
|
|
|
(define serialize-stuffer
|
|
(make-stuffer
|
|
(lambda (v) (write/bytes (compress-serial (serialize v))))
|
|
(lambda (v) (deserialize (decompress-serial (read/bytes v))))))
|
|
|
|
(provide/contract
|
|
[serialize-stuffer (stuffer/c serializable? bytes?)])
|