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

sets: improve stack effect for "combine".

db4
John Benediktsson 2011-01-26 17:24:55 -08:00
parent b4ca9daf27
commit ac950d8bd7
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
core/sets/sets.factor
View File

@ -109,7 +109,7 @@ M: sequence null?
M: sequence cardinality M: sequence cardinality
length ; length ;
: combine ( sets -- set ) : combine ( sets -- set/f )
[ f ] [ f ]
[ [ [ members ] map concat ] [ first ] bi set-like ] [ [ [ members ] map concat ] [ first ] bi set-like ]
if-empty ; if-empty ;