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