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

sequences.abbrev: more small refactoring

Maximilian Lupke 2009-07-20 17:22:55 +02:00
parent f671266313
commit b85e80cb9a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/sequences/abbrev/abbrev.factor
View File

@ -12,7 +12,7 @@ IN: sequences.abbrev
[ prefixes ] keep 1array '[ _ ] H{ } map>assoc ; [ prefixes ] keep 1array '[ _ ] H{ } map>assoc ;
: assoc-merge ( assoc1 assoc2 -- assoc3 ) : assoc-merge ( assoc1 assoc2 -- assoc3 )
swap over '[ over _ at dup [ prepend ] [ drop ] if ] assoc-map assoc-union ; tuck '[ over _ at dup [ prepend ] [ drop ] if ] assoc-map assoc-union ;
PRIVATE> PRIVATE>