From 1b05122db401ead3fc04aeb39ab20156425e1b30 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Sun, 7 Feb 2016 16:17:47 -0500 Subject: [PATCH] Fix monolithic pretty-printing of SCNs --- prospect-monolithic/scn.rkt | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/prospect-monolithic/scn.rkt b/prospect-monolithic/scn.rkt index bd219d1..89794f7 100644 --- a/prospect-monolithic/scn.rkt +++ b/prospect-monolithic/scn.rkt @@ -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)