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

assocs: change assoc= to compare with = not eq?.

char-rename
John Benediktsson 2017-02-07 16:40:39 -08:00
parent 92d7f6bc5a
commit b5ce31cbae
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/assocs/assocs.factor
View File

@ -144,7 +144,7 @@ M: assoc values [ nip ] { } assoc>map ;
[ at* [ = ] [ 2drop f ] if ] with-assoc assoc-all? ;
: assoc= ( assoc1 assoc2 -- ? )
2dup [ assoc-size ] bi@ eq? [ assoc-subset? ] [ 2drop f ] if ;
2dup [ assoc-size ] bi@ = [ assoc-subset? ] [ 2drop f ] if ;
: assoc-hashcode ( n assoc -- code )
>alist hashcode* ;