No more distinction between internal/external protocol variants
This commit is contained in:
parent
953d568abd
commit
c5643fb1b1
|
@ -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))))
|
||||
|
||||
|
|
Loading…
Reference in New Issue