Fix monolithic pretty-printing of SCNs
This commit is contained in:
parent
1e4415e30b
commit
1b05122db4
|
@ -26,7 +26,7 @@
|
||||||
(struct scn (trie) #:transparent
|
(struct scn (trie) #:transparent
|
||||||
#:methods gen:prospect-pretty-printable
|
#:methods gen:prospect-pretty-printable
|
||||||
[(define (prospect-pretty-print d [p (current-output-port)])
|
[(define (prospect-pretty-print d [p (current-output-port)])
|
||||||
(pretty-print-trie (scn-trie d)))])
|
(pretty-print-trie (scn-trie d) p))])
|
||||||
|
|
||||||
;; Claims, Interests, Locations, and Advertisements
|
;; Claims, Interests, Locations, and Advertisements
|
||||||
(struct observe (claim) #:prefab)
|
(struct observe (claim) #:prefab)
|
||||||
|
|
Loading…
Reference in New Issue