hash-sets: simpler <hash-set>.

2011-09-03 16:38:42 -07:00 · 2011-09-03 16:38:42 -07:00 · e8aa41ae57
parent 21c30b37ee
commit e8aa41ae57
1 changed files with 1 additions and 3 deletions
--- a/core/hash-sets/hash-sets.factor
+++ b/core/hash-sets/hash-sets.factor
@ -9,9 +9,7 @@ IN: hash-sets
 TUPLE: hash-set { table hashtable read-only } ;

 : <hash-set> ( members -- hash-set )
-    dup length <hashtable> [
-        [ dupd set-at ] curry each
-    ] keep hash-set boa ;
+    unique hash-set boa ; inline

 INSTANCE: hash-set set
 M: hash-set in? table>> key? ; inline