From 55f01cea3f844f1bb6d1653f78b173353c6e0662 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Wed, 10 Jun 2020 12:06:10 +0200 Subject: [PATCH] Placeholders no longer available in preserves --- syndicate/distributed/wire-protocol.rkt | 14 +++++--------- 1 file changed, 5 insertions(+), 9 deletions(-) diff --git a/syndicate/distributed/wire-protocol.rkt b/syndicate/distributed/wire-protocol.rkt index 7bfca39..f5a45b7 100644 --- a/syndicate/distributed/wire-protocol.rkt +++ b/syndicate/distributed/wire-protocol.rkt @@ -35,17 +35,13 @@ ;; establish `observe`s, i.e. subscriptions. (define (decode bs) - (parameterize ((preserves:current-placeholder->value - (lambda (v) (vector-ref '#(discard capture observe) v)))) - (bit-string-case bs - #:on-short (lambda (fail) (values #f bs)) - ([ (v :: (preserves:wire-value)) (rest :: binary) ] (values v (bit-string->bytes rest))) - (else (error 'decode "Invalid wire message"))))) + (bit-string-case bs + #:on-short (lambda (fail) (values #f bs)) + ([ (v :: (preserves:wire-value)) (rest :: binary) ] (values v (bit-string->bytes rest))) + (else (error 'decode "Invalid wire message")))) (define (encode v) - (parameterize ((preserves:current-value->placeholder - (lambda (v) (index-of '(discard capture observe) v eq?)))) - (preserves:encode v))) + (preserves:encode v)) (define (ping-interval) (* 1000 (min 60 ;; reasonable default?