Fix monolithic pretty-printing of SCNs
This commit is contained in:
parent
1e4415e30b
commit
1b05122db4
|
@ -26,7 +26,7 @@
|
|||
(struct scn (trie) #:transparent
|
||||
#:methods gen:prospect-pretty-printable
|
||||
[(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
|
||||
(struct observe (claim) #:prefab)
|
||||
|
|
Loading…
Reference in New Issue