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

sorting: Rename merge tuple to merge-state.

db4
Doug Coleman 2013-03-23 21:56:56 -07:00
parent f028aff605
commit 1d8f1343e0
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
core/sorting/sorting.factor
View File

@ -13,7 +13,7 @@ IN: sorting
<PRIVATE <PRIVATE
TUPLE: merge TUPLE: merge-state
{ seq array } { seq array }
{ accum vector } { accum vector }
{ accum1 vector } { accum1 vector }
@ -70,7 +70,7 @@ TUPLE: merge
dup accum>> 0 >>length 2drop ; inline dup accum>> 0 >>length 2drop ; inline
: <merge> ( seq -- merge ) : <merge> ( seq -- merge )
\ merge new \ merge-state new
over >vector >>accum1 over >vector >>accum1
swap length <vector> >>accum2 swap length <vector> >>accum2
dup accum1>> underlying>> >>seq dup accum1>> underlying>> >>seq