diff --git a/syndicate/relay.rkt b/syndicate/relay.rkt index e6096ca..8349397 100644 --- a/syndicate/relay.rkt +++ b/syndicate/relay.rkt @@ -13,7 +13,7 @@ (require (only-in "actor.rkt" current-turn)) (require "engine.rkt") (require "rewrite.rkt") -(require "schemas/externalProtocol.rkt") +(require "schemas/protocol.rkt") (require (prefix-in sturdy: "schemas/sturdy.rkt")) (define-logger syndicate/relay) @@ -104,7 +104,7 @@ (define start-pos (file-position p)) (match (read-preserve/binary p #:read-syntax? #f - #:decode-embedded decode-embedded:externalProtocol + #:decode-embedded sturdy:parse-WireRef! #:on-short (lambda () eof)) [(? eof-object?) (when (positive? start-pos) @@ -197,7 +197,7 @@ (preserve->bytes (->preserve pending) #:canonicalizing? #t #:write-annotations? #f - #:encode-embedded encode-embedded:externalProtocol))))))) + #:encode-embedded ->preserve))))))) (set-tunnel-relay-pending-turn-rev! tr (cons (TurnEvent (Oid oid) event) (tunnel-relay-pending-turn-rev tr))))