Made blame objects transparent to allow equal?

svn: r17695
2010-01-17 06:10:09 +00:00 · 2010-01-17 06:10:09 +00:00 · 41bd96f6aa
commit 41bd96f6aa
parent da89b2146f
1 changed files with 3 additions and 1 deletions
--- a/collects/scheme/contract/private/blame.ss
+++ b/collects/scheme/contract/private/blame.ss
@ -18,7 +18,9 @@
         current-blame-format
         (struct-out exn:fail:contract:blame))

-(define-struct blame [source value contract positive negative swapped?])
+(define-struct blame
+  [source value contract positive negative swapped?]
+  #:transparent)

 (define (blame-guilty b)
  (if (blame-swapped? b)