From eec0ff66c6ce790ac5af3cc300f784383baefe0d Mon Sep 17 00:00:00 2001
From: Jay McCarthy <jay@racket-lang.org>
Date: Wed, 3 Mar 2010 18:01:04 +0000
Subject: [PATCH] Adding a custom printer similar to hasheq's for sets

svn: r18450
---
 collects/scheme/set.ss | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/collects/scheme/set.ss b/collects/scheme/set.ss
index bbe4f6472d..3574e94fd3 100644
--- a/collects/scheme/set.ss
+++ b/collects/scheme/set.ss
@@ -11,6 +11,15 @@
 
 (define-struct set (ht)
   #:omit-define-syntaxes
+  #:property prop:custom-write
+  (lambda (s port write?)
+    (define print (if write? write display))
+    (write-string "#<set:" port)
+    (set-for-each s 
+                  (lambda (e) 
+                    (write-string " " port)
+                    (print e port)))
+    (write-string ">" port))
   #:property prop:equal+hash (list 
                               (lambda (set1 set2 =?)
                                 (=? (set-ht set1) (set-ht set2)))