Special printer for seals. Fixes #27.
This commit is contained in:
parent
75093d0e1a
commit
c9ec9f6be9
|
@ -129,7 +129,10 @@
|
||||||
;; Seals are used by protocols to prevent the routing tries from
|
;; Seals are used by protocols to prevent the routing tries from
|
||||||
;; examining internal structure of values.
|
;; 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
|
;; contract -> contract
|
||||||
(define ((sealof c) x)
|
(define ((sealof c) x)
|
||||||
|
|
Loading…
Reference in New Issue