From ef34c5db0183b0619a80b10b53531d7120ff2f64 Mon Sep 17 00:00:00 2001
From: Stephen Chang <stchang@ccs.neu.edu>
Date: Wed, 29 Oct 2014 16:47:58 -0400
Subject: [PATCH] restore set/c default #:kind to 'immutable; update tests and
 docs to match

---
 .../racket-doc/scribblings/reference/sets.scrbl            | 2 +-
 pkgs/racket-pkgs/racket-test/tests/racket/set.rktl         | 7 +++----
 racket/collects/racket/set.rkt                             | 2 +-
 3 files changed, 5 insertions(+), 6 deletions(-)

diff --git a/pkgs/racket-pkgs/racket-doc/scribblings/reference/sets.scrbl b/pkgs/racket-pkgs/racket-doc/scribblings/reference/sets.scrbl
index ddeadb4e62..e027d4448e 100644
--- a/pkgs/racket-pkgs/racket-doc/scribblings/reference/sets.scrbl
+++ b/pkgs/racket-pkgs/racket-doc/scribblings/reference/sets.scrbl
@@ -203,7 +203,7 @@ named by the @racket[sym]s.
                  'dont-care]
                 [#:kind kind 
                  (or/c 'dont-care 'immutable 'mutable 'weak 'mutable-or-weak)
-                 'dont-care])
+                 'immutable])
          contract?]{
 
   Constructs a contract that recognizes sets whose elements match
diff --git a/pkgs/racket-pkgs/racket-test/tests/racket/set.rktl b/pkgs/racket-pkgs/racket-test/tests/racket/set.rktl
index af6f3c5fa7..50f9525b02 100644
--- a/pkgs/racket-pkgs/racket-test/tests/racket/set.rktl
+++ b/pkgs/racket-pkgs/racket-test/tests/racket/set.rktl
@@ -586,15 +586,14 @@
 
 ;; check dont-care defaults
 (test #t set? (app-ctc (set/c any/c) (set)))
-(test #t set-mutable? (app-ctc (set/c any/c) (mutable-set)))
 (test #t set? (app-ctc (set/c any/c) (seteq)))
-(test #t set-mutable? (app-ctc (set/c any/c) (mutable-seteqv)))
 
+(test/blame-pos (app-ctc (set/c any/c) (mutable-set))) ; check immutable default
 (test/blame-pos (app-ctc (set/c any/c #:cmp 'eq) (set)))
 (test/blame-pos (app-ctc (set/c any/c #:kind 'mutable) (set)))
 (test/blame-pos (app-ctc (set/c string? #:kind 'immutable) (set 1)))
-(test #t set? (app-ctc (set/c string?) (set 1))) ; ok bc we get a ho contract
+(test/blame-pos (app-ctc (set/c string?) (set 1)))
 (test/blame-pos (set-first (app-ctc (set/c string?) (set 1))))
-(test/blame-neg (set-add! (app-ctc (set/c string?) (mutable-set)) 1))
+(test/blame-neg (set-add! (app-ctc (set/c string? #:kind 'mutable) (mutable-set)) 1))
 
 (report-errs)
diff --git a/racket/collects/racket/set.rkt b/racket/collects/racket/set.rkt
index fb4744e2fe..7f385a1198 100644
--- a/racket/collects/racket/set.rkt
+++ b/racket/collects/racket/set.rkt
@@ -12,7 +12,7 @@
 
 (define (set/c elem/c
                #:cmp [cmp 'dont-care]
-               #:kind [kind 'dont-care])
+               #:kind [kind 'immutable])
   (define cmp/c
     (case cmp
       [(dont-care) any/c]