From b4b5a443d1b42fd908cc7b7399cf2d6d74cddb6a Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Sat, 3 Jul 2021 16:33:10 +0200 Subject: [PATCH] Use external protocol variant --- syndicate/relay.rkt | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/syndicate/relay.rkt b/syndicate/relay.rkt index 5304c99..52c2486 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/protocol.rkt") +(require "schemas/externalProtocol.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:protocol + #:decode-embedded decode-embedded:externalProtocol #: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:protocol))))))) + #:encode-embedded encode-embedded:externalProtocol))))))) (set-tunnel-relay-pending-turn-rev! tr (cons (TurnEvent (Oid oid) event) (tunnel-relay-pending-turn-rev tr))))