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 (only-in "actor.rkt" current-turn))
|
||||||
(require "engine.rkt")
|
(require "engine.rkt")
|
||||||
(require "rewrite.rkt")
|
(require "rewrite.rkt")
|
||||||
(require "schemas/externalProtocol.rkt")
|
(require "schemas/protocol.rkt")
|
||||||
(require (prefix-in sturdy: "schemas/sturdy.rkt"))
|
(require (prefix-in sturdy: "schemas/sturdy.rkt"))
|
||||||
|
|
||||||
(define-logger syndicate/relay)
|
(define-logger syndicate/relay)
|
||||||
|
@ -104,7 +104,7 @@
|
||||||
(define start-pos (file-position p))
|
(define start-pos (file-position p))
|
||||||
(match (read-preserve/binary p
|
(match (read-preserve/binary p
|
||||||
#:read-syntax? #f
|
#:read-syntax? #f
|
||||||
#:decode-embedded decode-embedded:externalProtocol
|
#:decode-embedded sturdy:parse-WireRef!
|
||||||
#:on-short (lambda () eof))
|
#:on-short (lambda () eof))
|
||||||
[(? eof-object?)
|
[(? eof-object?)
|
||||||
(when (positive? start-pos)
|
(when (positive? start-pos)
|
||||||
|
@ -197,7 +197,7 @@
|
||||||
(preserve->bytes (->preserve pending)
|
(preserve->bytes (->preserve pending)
|
||||||
#:canonicalizing? #t
|
#:canonicalizing? #t
|
||||||
#:write-annotations? #f
|
#:write-annotations? #f
|
||||||
#:encode-embedded encode-embedded:externalProtocol)))))))
|
#:encode-embedded ->preserve)))))))
|
||||||
(set-tunnel-relay-pending-turn-rev! tr (cons (TurnEvent (Oid oid) event)
|
(set-tunnel-relay-pending-turn-rev! tr (cons (TurnEvent (Oid oid) event)
|
||||||
(tunnel-relay-pending-turn-rev tr))))
|
(tunnel-relay-pending-turn-rev tr))))
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue