1(module kw-syntax-binding "pre-base.rkt"
2  (require (prefix-in k: '#%kernel))
3
4  (provide syntax-serialize
5           syntax-deserialize)
6
7  (define (syntax-serialize stx
8                            #:base-module-path-index [base-mpi #f]
9                            #:preserve-property-keys [preserve-prop-keys '()]
10                            #:provides-namespace [provides-namespace (current-namespace)])
11    (k:syntax-serialize stx base-mpi preserve-prop-keys provides-namespace))
12
13  (define (syntax-deserialize data
14                              #:base-module-path-index [base-mpi #f])
15    (k:syntax-deserialize data base-mpi)))
16