steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

hash-sets: back out this change for now.

db4
John Benediktsson 2013-03-08 17:53:12 -08:00
parent 5f165095dc
commit 30bdecd876
1 changed files with 3 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
core/hash-sets/hash-sets.factor
View File

@ -1,9 +1,9 @@
! Copyright (C) 2010 Daniel Ehrenberg ! Copyright (C) 2010 Daniel Ehrenberg
! Copyright (C) 2005, 2011 John Benediktsson, Slava Pestov. ! Copyright (C) 2005, 2011 John Benediktsson, Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors arrays assocs hash-sets hashtables.private USING: accessors arrays hash-sets hashtables.private kernel
kernel kernel.private math math.private sequences kernel.private math math.private sequences sequences.private
sequences.private sets sets.private slots.private vectors ; sets sets.private slots.private vectors ;
IN: hash-sets IN: hash-sets
TUPLE: hash-set TUPLE: hash-set
@ -163,6 +163,3 @@ PRIVATE>
M: sequence all-unique? M: sequence all-unique?
dup length <hash-set> [ (all-unique?) ] curry all? ; dup length <hash-set> [ (all-unique?) ] curry all? ;
M: hash-set >alist
array>> dup zip ;