syndicate-lang
/
syndicate-rkt
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Use external protocol variant

This commit is contained in:
Tony Garnock-Jones 2021-07-03 16:33:10 +02:00
parent 996658cd0e
commit b4b5a443d1
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
syndicate/relay.rkt
View File

@ -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))))