sorting: inline check-bounds.
parent
1aa27963d2
commit
7023cff14b
|
@ -148,7 +148,7 @@ PRIVATE>
|
|||
<PRIVATE
|
||||
|
||||
: check-bounds ( alist n -- alist )
|
||||
[ swap bounds-check 2drop ] curry dupd each ;
|
||||
[ swap bounds-check 2drop ] curry dupd each ; inline
|
||||
|
||||
PRIVATE>
|
||||
|
||||
|
|
Loading…
Reference in New Issue