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

new accessors

db4
Doug Coleman 2008-08-29 16:49:41 -05:00
parent c013d63eea
commit 085e477a98
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/heaps/heaps-tests.factor
View File

@ -58,7 +58,7 @@ IN: heaps.tests
dup length random dup pick nth >r swap delete-nth r> ;
: sort-entries ( entries -- entries' )
[ [ entry-key ] compare ] sort ;
[ [ key>> ] compare ] sort ;
: delete-test ( n -- ? )
[
@ -67,7 +67,7 @@ IN: heaps.tests
dup data>> clone swap
] keep 3 /i [ 2dup >r delete-random r> heap-delete ] times
data>>
[ [ entry-key ] map ] bi@
[ [ key>> ] map ] bi@
[ natural-sort ] bi@ ;
11 [