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

assocs.extras: fry can easily curry the top item of the stack.

windows-high-dpi
Doug Coleman 2018-02-20 01:21:28 -06:00
parent 4a258dbc00
commit 435ce60165
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/assocs/extras/extras.factor
View File

@ -104,7 +104,7 @@ PRIVATE>
: expand-keys-push-as ( assoc exemplar -- hashtable' )
[
[ [ dup sequence? [ 1array ] unless ] dip ]
[ '[ 2array _ push ] curry each ]
[ '[ _ 2array _ push ] each ]
] dip assoc>object ;
: expand-keys-push ( assoc -- hashtable' )
@ -113,7 +113,7 @@ PRIVATE>
: expand-values-set-at-as ( assoc exemplar -- hashtable' )
[
[ dup sequence? [ 1array ] unless swap ]
[ '[ _ set-at ] curry each ]
[ '[ _ _ set-at ] each ]
] dip assoc>object ;
: expand-values-set-at ( assoc -- hashtable' )
@ -122,7 +122,7 @@ PRIVATE>
: expand-values-push-at-as ( assoc exemplar -- hashtable' )
[
[ dup sequence? [ 1array ] unless swap ]
[ '[ _ push-at ] curry each ]
[ '[ _ _ push-at ] each ]
] dip assoc>object ;
: expand-values-push-at ( assoc -- assoc )