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

View File

@ -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 ;