Browse Source

Special printer for seals. Fixes #27.

module-begin
Tony Garnock-Jones 4 years ago
parent
commit
c9ec9f6be9
  1. 5
      racket/syndicate/core.rkt

5
racket/syndicate/core.rkt

@ -129,7 +129,10 @@
;; Seals are used by protocols to prevent the routing tries from
;; examining internal structure of values.
(struct seal (contents)) ;; NB. Neither transparent nor prefab
(struct seal (contents) ;; NB. Neither transparent nor prefab
#:methods gen:custom-write
[(define (write-proc s port mode)
(fprintf port "#{~v}" (seal-contents s)))])
;; contract -> contract
(define ((sealof c) x)

Loading…
Cancel
Save