Fix monolithic pretty-printing of SCNs

This commit is contained in:
Tony Garnock-Jones 2016-02-07 16:17:47 -05:00
parent 1e4415e30b
commit 1b05122db4
1 changed files with 1 additions and 1 deletions

View File

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