Placeholders no longer available in preserves
This commit is contained in:
parent
2a59b576dc
commit
55f01cea3f
|
@ -35,17 +35,13 @@
|
||||||
;; establish `observe`s, i.e. subscriptions.
|
;; establish `observe`s, i.e. subscriptions.
|
||||||
|
|
||||||
(define (decode bs)
|
(define (decode bs)
|
||||||
(parameterize ((preserves:current-placeholder->value
|
(bit-string-case bs
|
||||||
(lambda (v) (vector-ref '#(discard capture observe) v))))
|
#:on-short (lambda (fail) (values #f bs))
|
||||||
(bit-string-case bs
|
([ (v :: (preserves:wire-value)) (rest :: binary) ] (values v (bit-string->bytes rest)))
|
||||||
#:on-short (lambda (fail) (values #f bs))
|
(else (error 'decode "Invalid wire message"))))
|
||||||
([ (v :: (preserves:wire-value)) (rest :: binary) ] (values v (bit-string->bytes rest)))
|
|
||||||
(else (error 'decode "Invalid wire message")))))
|
|
||||||
|
|
||||||
(define (encode v)
|
(define (encode v)
|
||||||
(parameterize ((preserves:current-value->placeholder
|
(preserves:encode v))
|
||||||
(lambda (v) (index-of '(discard capture observe) v eq?))))
|
|
||||||
(preserves:encode v)))
|
|
||||||
|
|
||||||
(define (ping-interval)
|
(define (ping-interval)
|
||||||
(* 1000 (min 60 ;; reasonable default?
|
(* 1000 (min 60 ;; reasonable default?
|
||||||
|
|
Loading…
Reference in New Issue