1 ! Copyright (C) 2013 John Benediktsson
2 ! See http://factorcode.org/license.txt for BSD license
4 USING: accessors hash-sets hash-sets.wrapped kernel parser
5 sequences vocabs.loader ;
7 IN: hash-sets.sequences
11 TUPLE: sequence-wrapper
12 { underlying sequence read-only } ;
14 C: <sequence-wrapper> sequence-wrapper
16 M: sequence-wrapper equal?
17 over sequence-wrapper?
18 [ [ underlying>> ] bi@ sequence= ]
19 [ 2drop f ] if ; inline
21 M: sequence-wrapper hashcode*
22 underlying>> [ sequence-hashcode ] recursive-hashcode ; inline
26 TUPLE: sequence-hash-set < wrapped-hash-set ;
28 : <sequence-hash-set> ( n -- shash-set )
29 <hash-set> sequence-hash-set boa ; inline
31 M: sequence-hash-set wrap-key drop <sequence-wrapper> ;
33 M: sequence-hash-set clone
34 underlying>> clone sequence-hash-set boa ; inline
36 : >sequence-hash-set ( members -- shash-set )
37 [ <sequence-wrapper> ] map >hash-set sequence-hash-set boa ;
39 SYNTAX: SHS{ \ } [ >sequence-hash-set ] parse-literal ;
41 USE-WHEN-LOADED: hash-sets.sequences.prettyprint { "hash-sets.sequences" "prettyprint" }