hash-sets: back out this change for now.
parent
5f165095dc
commit
30bdecd876
|
@ -1,9 +1,9 @@
|
|||
! Copyright (C) 2010 Daniel Ehrenberg
|
||||
! Copyright (C) 2005, 2011 John Benediktsson, Slava Pestov.
|
||||
! See http://factorcode.org/license.txt for BSD license.
|
||||
USING: accessors arrays assocs hash-sets hashtables.private
|
||||
kernel kernel.private math math.private sequences
|
||||
sequences.private sets sets.private slots.private vectors ;
|
||||
USING: accessors arrays hash-sets hashtables.private kernel
|
||||
kernel.private math math.private sequences sequences.private
|
||||
sets sets.private slots.private vectors ;
|
||||
IN: hash-sets
|
||||
|
||||
TUPLE: hash-set
|
||||
|
@ -163,6 +163,3 @@ PRIVATE>
|
|||
|
||||
M: sequence all-unique?
|
||||
dup length <hash-set> [ (all-unique?) ] curry all? ;
|
||||
|
||||
M: hash-set >alist
|
||||
array>> dup zip ;
|
||||
|
|
Loading…
Reference in New Issue