2016-07-12 17:45:32 +00:00
|
|
|
#lang racket/base
|
|
|
|
;; State Change Notifications, and assorted protocol constructors
|
|
|
|
|
2017-06-23 21:57:35 +00:00
|
|
|
(provide (struct-out scn))
|
2016-07-12 17:45:32 +00:00
|
|
|
|
|
|
|
(require racket/set)
|
|
|
|
(require racket/match)
|
|
|
|
(require "../trie.rkt")
|
|
|
|
(require "../pretty.rkt")
|
|
|
|
|
|
|
|
;; State Change Notifications
|
|
|
|
(struct scn (trie) #:transparent
|
|
|
|
#:methods gen:syndicate-pretty-printable
|
|
|
|
[(define (syndicate-pretty-print d [p (current-output-port)])
|
|
|
|
(pretty-print-trie (scn-trie d) p))])
|