From fe150173a4a3451f47d278f6403f9e00843ab1c4 Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Thu, 6 Mar 2014 16:43:54 -0800
Subject: [PATCH] remove dependency on racket/set

---
 list.rkt | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/list.rkt b/list.rkt
index 8f666bd..06a9ca1 100644
--- a/list.rkt
+++ b/list.rkt
@@ -1,5 +1,5 @@
 #lang racket/base
-(require racket/list racket/set)
+(require racket/list)
 (require "define/contract.rkt" "len.rkt" "coerce/values.rkt")
 
 (define+provide/contract (trim items test-proc)
@@ -39,7 +39,7 @@
 (define+provide/contract (members-unique? x)
   (any/c . -> . boolean?)
   (cond 
-    [(list? x) (= (len (apply set x)) (len x))]
+    [(list? x) (= (len (remove-duplicates x)) (len x))]
     [(vector? x) (members-unique? (->list x))]
     [(string? x) (members-unique? (string->list x))]
     [else (error (format "members-unique cannot be determined for ~a" x))]))