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

Special printer for seals. Fixes #27.

This commit is contained in:
Tony Garnock-Jones 2017-12-05 17:22:13 +00:00
parent 75093d0e1a
commit c9ec9f6be9
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
racket/syndicate/core.rkt
View File

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