dlists: make push-sorted inline
parent
d8f258d47e
commit
fb63772e9d
|
@ -215,7 +215,7 @@ PRIVATE>
|
|||
[ swap push-before-node ] [ push-back* ] if* ; inline
|
||||
|
||||
: push-sorted ( obj dlist -- dlist-node )
|
||||
dupd [ before? ] with push-before ;
|
||||
dupd [ before? ] with push-before ; inline
|
||||
|
||||
INSTANCE: dlist deque
|
||||
|
||||
|
|
Loading…
Reference in New Issue