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

Fix map>assoc where the input is a specialized array

release
Slava Pestov 2007-12-03 19:29:16 -05:00
parent 7cbf7ba719
commit 3c95a5a3ea
2 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
core/assocs/assocs-tests.factor
View File

@ -87,3 +87,9 @@ unit-test
[ H{ { 1 2 } { 3 4 } } ] [ H{ { 1 2 } { 3 4 } } ]
[ "hi" 5 H{ { 1 2 } { 3 4 } } clone [ rename-at ] keep ] [ "hi" 5 H{ { 1 2 } { 3 4 } } clone [ rename-at ] keep ]
unit-test unit-test
[
H{ { 1.0 1.0 } { 2.0 2.0 } }
] [
F{ 1.0 2.0 } [ dup ] H{ } map>assoc
] unit-test

2
core/assocs/assocs.factor
View File

@ -135,7 +135,7 @@ M: assoc assoc-clone-like ( assoc exemplar -- newassoc )
[ 0 or + ] change-at ; [ 0 or + ] change-at ;
: map>assoc ( seq quot exemplar -- assoc ) : map>assoc ( seq quot exemplar -- assoc )
>r [ 2array ] compose map r> assoc-like ; inline >r [ 2array ] compose { } map-as r> assoc-like ; inline
M: assoc >alist [ 2array ] { } assoc>map ; M: assoc >alist [ 2array ] { } assoc>map ;