From b9954c0f9ef8aa070eafdfe2924509211e9d572b Mon Sep 17 00:00:00 2001
From: Tony Garnock-Jones <tonygarnockjones@gmail.com>
Date: Thu, 10 Mar 2016 18:24:48 +0000
Subject: [PATCH] Better printing of treaps

---
 prospect/treap.rkt | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

diff --git a/prospect/treap.rkt b/prospect/treap.rkt
index 7478f81..0003b12 100644
--- a/prospect/treap.rkt
+++ b/prospect/treap.rkt
@@ -58,7 +58,15 @@
 
 (struct L () #:transparent)
 
-(struct treap (order root size) #:transparent)
+(struct treap (order root size)
+  #:transparent
+  #:methods gen:custom-write
+  [(define (write-proc v port mode)
+     (display "#<treap" port)
+     (for [(entry (in-list (treap-to-alist v)))]
+       (display " " port)
+       (display entry port))
+     (display ">" port))])
 
 ;; The singleton "empty" leaf sentinel
 (define L0 (L))